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ABSTRACT 



Distributed decision problems arise when two or more sensors viewing the 
same phenomenon must work cooperatively to draw inferences about the 
observed situation. Typical examples are in target detection and target 
classification. Such problems are characterized by distributed processing of 
information and communication between processors over a limited bandwidth 
data link. This thesis presents some statistical distributed decision algorithms and 
describes the implementation of one of them on a set of loosely coupled 
multiprocessor clusters which simulate the distributed environment characterizing 
multisensor decision problems. The purpose of the implementation was to 
investigate problems of communication and process synchronization in a pair of 
processor clusters performing a statistical distributed decision algorithm. This 
thesis describes how these communication and synchronization problems were 
addressed and solved. 
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I. INTRODUCTION 



A. PROBLEM DESCRIPTION 

Modern military battle systems increasingly rely on the coordinated use of 
information from multiple sources to assess the battlefield situation. Two or more 
remotely located sensors may observe the same object with the purpose of 
drawing inferences about the observation. A common example is in the use of 
radars to detect and eventually classify objects for purposes of an appropriate 
response. In this type of scenario it is important to process the acquired 
information jointly to arrive at the optimum or near optimum decision. 

A simple example to demonstrate the distributed decision scenario is 
illustrated in Fig. 1 and explained below. 




Fig\ire 1 - Distributed Decision Scenario 

Two sensors, labeled A and B, observe the same area in space to jointly make a 
binary decision based on the statistical properties of the observations: either a 
target is detected or there is no target detected. In certain situations the optimal 
decision made by each sensor acting individually would result in each deciding 
that a target exists when an optimal joint decision would decide that a target 
does not exist. This dichotomy points out that in order for a higher level process 
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to make a correct decision about the object, the distributive nature of the 
problem must be built into the front end statistical decision procedure. 

The problem of distributed processing of the observation data to achieve 
optimal or near optimal decisions is discussed herein. The sensors are configured 
to perform computations to reduce the observation data and to communicate 
among themselves over a limited bandwidth channel. Algorithms which operate 
in this environment are called distributed decision algorithms. Algorithms which 
perform computations on all the observation data collected and gathered at one 
central location are called centralized algorithms. 

This thesis deals specifically with modeling a particular class of distributed 
decision algorithms in a multiprocessor environment, and with related issues of 
process synchronization. Although centralized algorithms are not of concern 
here, a companion thesis [l] deals with non real-time simulation and evaluation of 
distributed decision algorithms and comparison with centralized algorithms. 

Although the thesis deals with a particular class of distributed decision 
algorithms, the implementation problems presented by the algorithm would be 
typical of most distributed algorithms. Thus the work can be regarded as 
developing a test facility in which distributed decision algorithms can be tested in 
a realistic computational environment. 

The problem is to model the processing environment of two sensors which 
collect data on a common object. The sensors and their associated processors 
then perform parallel processing to partially reduce the data and the partial 
results are exchanged via a local area network. A final decision about the 
observed object is then made at each sensor, based on the locally processed data 
and the exchanged information. 

B. HARDWARE/SOFTWARE CONFIGURATION 

The hardware/software configuration used for the modeling of the distributed 
decision network was the REAL-TIME CLUSTER STAR (RTC *) system. This 
system was developed by thesis students under the AEGIS Project Group at the 
Naval Postgraduate School. RTC * was designed to handle algorithms of the type 
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incorporated here with the appropriate synchronization and control primitives. 
The hardware consists of two clusters of single board computers (SBC’s) sharing 
a common backplane with an Ethernet local area network(LAN) serving as the 
communications link. The operating system is a distributed multicomputer real- 
time executive that permits asynchronous parallel operation of processes resident 
on SBC’s of the same cluster and in separate clusters linked by the LAN. User 
processes, such as the distributed decision algorithms, are resident in the local 
memory of each SBC. They can share data and control variables using the 
common memory in each cluster, as well as the backplane and the LAN data 
paths. 

A detailed description of the hardware system and the software operating 
system is provided in [2]. The distributed decision algorithms are organized as a 
number of separate processes on various single board microcomputers in the two 
cluster arrangement. Process synchronization is achieved through certain await, 
advance, and read primitives to control the orderly multiple/parallel process 
execution as well as a sequencer to control the allocation of the LAN shared 
resource. Each cluster simulates the operations that would be performed by the 
sensor processors. Data read from disk storage simulates the input sensor 
observations. Each processor then performs the necessary computations to reduce 
the data to the statistics required for the joint decision. One set of statistics are 
then exchanged between clusters while another set is retained locally and 
computation is continued to produce a combined statistic based on the joint 
data. This combined statistic is then compared with a predetermined threshold to 
make the detection decision. Computations continue while data is available for 
input and the decision results are displayed on a local console of each cluster. 

C. STRUCTURE OF THE THESIS 

In the remainder of this thesis the distributed decision problem is defined and 
various distributed decision algorithms and their characteristics are discussed. 
The implementation of one algorithm in a distributed multiprocessor test 
environment is introduced and discussed in detail. Emphasis is placed on 
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obtaining solutions to the problems of communication and synchronization for 
processes operating in two remote computer systems. The specific contents of 
each chapter is as follows. 

Chapter II presents the distributed decision problem with a discussion of a 
specific distributed decision algorithm. Simple examples illustrate the detection 
problem with a binary decision rule. 

Chapter III presents the implementation of a specific detection distributed 
decision algorithm in the RTC* multicomputer system and discusses important 
issues relevant to the implementation of this type of algorithm. 

Chapter IV is a summary of the findings and summarizes the results of the 
implementation in the RTC* multicomputer system. 
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II. DISTRIBUTED DECISION ALGORITHMS 



A. SUMMARY OF ALGORITHMS 

Alternative approaches to a simple binary (two hypothesis) decision problem 
are presented in this chapter. The various algorithms have overall similar 
characteristics in that local computations are performed by each sensor, reduced 
data is exchanged over a limited capacity communications channel, and final 
decisions are made based on the joint observations of the sensors. 

The discussion here assumes that there are only two sensors involved (A and 
B) and that the task is to make a binary decision (R,: target is present, or Z/,: no 
target is present). Generalization of most of these methods to multiple sensors 
and/or multiple hypotheses is possible. 

1. Tenney - Sandell Algorithm 

Tenney and Sandell [3] seem to have been the first to look at distributed 
decision algorithms of the type described here. In their work, the observations of 
the two sensors are assumed to be independent when conditioned on the decision 
hypotheses. Such independence of observations could arise if the sensors 
measured different physical properties of the target (e.g. radar cross section and 
infrared radiation). The sensors each make a binary decision based on their own 
observations and send the result (a single bit) to a fusion center for arbitration. 
A cost criterion was devised that depends on the decisions made by each sensor 
and on the two hypotheses. Tenney and Sandell showed that the procedure that 
minimized the expected value of the cost is a likelihood ratio test at each sensor. 
However the thresholds used by the two sensors are coupled through some 
integral equations. 

2. Relaxation Algorithms 

Relaxation algorithms [4,5] are another way to execute distributed 
decisions. These algorithms are less well-founded in a theoretical sense, but seem 
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to work well in practice. In the relaxation algorithm each sensor makes an initial 
decision based on its own observations. The decisions are exchanged and each 
sensor may then revise its decision based on the new information. The procedure 
works best when there are multiple decision makers involved and may require 
more than a single iteration to converge. 

3. The Generalized Likelihood Ratio Test 

If the information exchanged between sensors is more than a single bit, 
but limited to, say, a single floating point number, then a whole new class of 
procedures can be suggested. In particular, if the observations are independent 
as in the Tenney-Sandell analysis, then the likelihood ratio for the joint 
observations factors into two parts, each depending only on the observations of a 
single sensor. Thus each sensor can compute the likelihood ratio (or log 
likelihood ratio) statistic for its own observations and send it to the other sensor. 
Each sensor then has the complete information required for making a decision to 
minimize probability of error bcised on the joint observations. 

A more interesting problem occurs if the observations are correlated. In 
this case the joint likelihood ratio does not factor in such a convenient way. 
However, a procedure can be suggested that leads to a relatively simple decision 
algorithm. Let the observations acquired by sensors A and B be represented by 
xq and yo respectively. The optimal centralized test to minimize the probability of 
error heis the form 



Pi(xQ,yo) 

p 2(xo,yo) 



, Pi(xo) , Pi(yo;:xo) 
In — - — r + In — - — I 

P2(xo P2(yoi^o) 




( 1 ) 



where the subscript i on each probability density function p indicates that the 
density function is for hypothesis i/, . A distributed form of this test can be 
developed by allowing sensor A to compute the first term in (l) and allowing 
sensor B to compute an approximation to the second term (the conditional log 
likelihood ratio) by using some estimate for the observations xq. This procedure is 



14 



known as a generalized likelihood ratio test [6]. In essence, when the density 
function involves an unknown parameter (in our case xq in the second term in 
(l)) estimates are made based on each hypothesis (xj for Hi and xj for Hi) and 
used in the corresponding density function. The form of the second term then 
becomes 

( 2 ) 

P2(yoI X 2 ) 

If sensor B sends the result of this computation to sensor A, then the test (l), 
can be evaluated to make a decision. A symmetric computation can be made with 
the roles of A and B reversed, where the the estimates for yo are yj and yj at 
sensor A. 

The decision rule just described has a number of essential differences 
from the corresponding centralized algorithm. First, since the likelihood ratio 
evaluated by one sensor uses an estimate for the other sensor's observations, the 
performance of the algorithm will in general be different and suboptimal when 
compared to the centralized test. Second, since the two sensors perform 
symmetric computations with the roles of xq and yo reversed, there will, in general 
be a region of the combined observation space where the decisions of the two 
sensors do not agree. The properties of this class of distributed decision 
algorithms is dependent on the various methods of estimating the unknown 
observations xq. If the sensors are allow'ed to exchange only a single statistic then 
the estimate for Xq must be derived entirely from yo (e.g. using MAP estimation) 
and the resulting decision rule is of the form 



Hi 

(xo) - Afi(yo) > Inr (3) 

This limits the degree to which the distributed test can approximate the 
centralized test since in many cases the centralized test will not be separable. 

The log likelihood ratios in (3) are computed at their respective sensors 
and once the primed statistic is received, it is added to the unprimed locally 
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computed statistic and the result is compared to the known threshold, In T. For 
the case of Gaussian observations, the densities, pi and p 2 of (l), are of the form 



Pi = 



(2»r)M K(-^ 



exp 



X - 

2 ^ 






X — m' 



t = l,2 



( 4 ) 



and the points where the sum of the statistics in (3) is equal to In T establish a 
decision boundary for this particular decision rule. If observations xq and yo 
result in a point with value greater than the boundary value, the decision is Hi 
and if the value is less than the boundary value the decision is //j- Decision 
boundaries for Gaussian density functions are generally elliptical, parabolic, or 
hyperbolic and define two (not necessarily connected) regions, one for each 
hypothesis. 

4. Decision Based on the Nearest Neighbor Rule 

A final form of distributed decision algorithm is based on the k-nearest 
neighbor rule of pattern recognition [7]. In this nonparametric decision rule, a set 
of observations to be tested is represented as a point in a multidimensional 
observation space. Also existing in this space are previously given sets of points 
(training data) corresponding to each of the two hypotheses. The distance of the 
measured observations to each of the other points is computed to determine its k 
nearest neighbors. If most of the neighbors correspond to Hi then the given 
observations are also associated with //i, otherwise the given observations are 
classified according to H^- 

A distributed form of this decision rule can be developed by letting each 
sensor determine a small number of nearest neighbors in the x or y subspace. If 
the labels of these points and their distances from the observation data are 
interchanged, one can compute the distances in the xy observation space and 
classify the observation data. This policy does not guarantee that the true 
nearest neighbors will always be found but allows a decision to be made without 
further iterations and exchange of information. 
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B. GENERALIZED LIKELIHOOD RATIO TEST 



The algorithm based on the generalized likelihood ratio test was chosen for 
implementation on the distributed system. It has requirements for 
communication and process synchronization that are representative of distributed 
decision algorithms in general. The performance characteristics of the generalized 
likelihood ratio test are investigated in [l]. If the joint density function for vector 
observations x and y is Gaussian, then a quadratic decision boundary results. 
This is known as a quadratic classifier [8]. The joint density function for 
observations x and y has the form 



P. ( z ) = 



A. 

(2^)^ 



K(-) 



exp 



— z - 






z - m 






t = l,2 



( 5 ) 



where z is the observation vector with elements x and y and is the mean 
vector 



m 



(0 = 



(0 



2 = 1,2 



and K Is the covariance matrix partitioned as follows 



( 6 ) 



K = 



K(') B*‘) 

B(')7' k(’) 

ty y 



e = 1.2 






Note that Kj’' is the covariance matrix for x, kJ’) is the covariance matrix for y. 
and bJj' is the cross covariance matrix between x and y. The marginal and 
conditional densities are Gaussian [9] and are given by 



P. ( X ) = 



(2;r)’ i Ki')| ^ 



exp - Y [ X - ^ x - 



t=l,2 



( 8 ) 
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p,(y ^ = 



— exp 



(2^)M K(-|>,| ^ 



- T 1 y “ iKiVtl"' 1 y - 



i = l,2 



p. ( y ) = 



— exp 



(2^)^ Kj'> 



y 1 y - |Kj’>] ‘ I y - mj’)] 



1 = 1,2 



P, ( X y ) = 



— exp 



(2^)^ ! K<-|), ^ ^ 



i 1 X - ,Ki'|)j ' : X - mjV 



j = 1.2 



where the conditional covariances and means have the form 

K'-)^ = K('> - B(;)^;Ki')]-' B(;) , * = 1,2 

mh|), = m(-) 1 - Bi;)^[Ki->]-‘ [x - mi’)] , t = l,2 

Since the x term of (13) is not available at the given sensor, an estimate 
form 



X, = mi*' + B^’) ;kJ‘>] ' [y - , t = l,2 

is used. The estimate is the value of x that maximizes the density p, 
Symmetric forms of (12), (13), and (14) are used for , m, ^ , and y, 
other sensor. 

The natural logarithm of (8) is given by 



( 9 ) 

( 10 ) 

( 11 ) 

(12) 

(13) 
of the 

(14) 

(x, y). 

at the 
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i=l,2 (15) 



Inp.(x) =-l[ln( 2 ;r)^+ In | K(-)| ^ [x - IKj-)]-' [x - m'')] 



and the natural logarithms of (9), (10), and (11) are similarly obtained. The 
logarithms of the conditional likelihood ratios are then used to obtain the terms 
on the right side of (1). The term given by 



(xo) = In - - = In pi(xo)-ln Pi { x ^) 
P2{^) 



then becomes 



(16) 



A.4 ( xo ) = - J I 



In , Ki‘)| + [x - |x - mi‘>j 

In; Ki^)| + ;x - ,x - mi^lj 



(17) 



Expanding (17) and collecting terms leads to the form 



A^ (X(j) = x^A xi-b^x+c 



where 



(18) 



is an NxN matrix. 



= 



A = 1 [;Kf)]-' - ;Ki'>i-] 






is a IxN vector, and 



2 



K)'*' ' lUj*'* — .Ki**! ' uij'* + In 



Ki^> i 



(19) 



( 20 ) 



( 21 ) 



is a scaler. 

The coefficients of the conditional log likelihood ratio, A 4 ( xq ) are called A , b , 
and c and are derived in the same way with (12), (13), and (14) substituted for 
the corresponding variables. Similar coefficients are calculated for Ag(yo) and 
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^B(yo) and are listed in Appendix A along with the coefficients for (xq) and 
A^(xo). The computations of A, b, c, A , b , and c are performed prior to their 
use in a real-time application and are input at the start of each process as the 
parameters for each of the quadratic classifiers. 
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III. THE TEST ENVIRONMENT 



A. HARDWARE DESCRIPTION 

The test environment for the distributed decision algorithms, designated 
Real-Time Cluster Star (RTC *), consists of a highly modular hardware base and 
a highly flexible operating system. The hardware consists of two clusters of 
single board computers (SBC’s), each sharing a common backplane and an 
Ethernet local area network (LAN) serving as the communication link. Thus 
each cluster can be thought of as a node of a network and each node has multiple 
processors on a common bus. 

1. The Cluster 

The cluster configuration is diagramed in Figure 2. Each cluster consists 
of three SBC’s physically connected by the MULTIBUS. Each SBC has 64K 
RAM of local memory and can access an additional 64K R.\M board of shared 
memory and a 32K R.\M board of common memory on the MULTIBUS. Also 
connected to the MULTIBUS are hard and floppy disk drives used for bootup 
and input/output operations. 




Figure 2 - Cluster .Architecture 



2. Real-Time Cluster Star (RTC *) 

Figure 3 illustrates the RTC* architecture. It consists of two clusters 
connected by the Ethernet LAN. The Ethernet LAN/MULTIBUS interface is 
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JntprLAN XiriOJO ^ommunicatJoiT' '•<>l]pr Board (ECCB). This 

j>r-»\ides each duster with Its connection to the lulwurk. Further information on 
operating characteristics of the Ethernet LAN and RTC * use of the Ethernet 
LAN is available in [2,10]. 




Figure 3 - Real-Time Cluster Star (RTC'*') Architecture 



B. THE OPERATING SYSTEM ENVIRONMENT 

MCORTEX. the operating system, is a distributed multicomputer real-time 
executive. It allows for asynchronous operation of processes resident on SBC's in 
the same cluster and in separate clusters which are linked via the Ethernet LAN. 
System synchronization of computations in various distributed processes is 
accomplished using the synchronization model of Reed and Kanodia [llj. This 
section describes the MCORTEX system distribution of control variables, known 
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as eventcounts and sequencers. The modifications to the operating system, 
necessary to distribute user data throughout the system, are also discussed in this 
section. 

1. The Synchronization Model 

The MCORTEX operating system is based upon a synchronization model 
which is event oriented. Processes coordinate various activities by signaling and 
observing events using synchronization variables known as eventcounts and 
sequencers. An eventcount is a variable created by the user to signal the 
occurrence of an associated event. Eventcounts are initialized with the value 
zero and incremented by one each time the associated event occurs. The 
mechanism used to signal this occurrence is a call to a system primitive, the 
advance, which causes the eventcount to be incremented by one. A call to 
another system primitive, the await, causes a process to wait until the 
designated eventcount has reached a designated threshold. Once the 
eventcount value is equal to or greater than the threshold value the process 
may continue its execution. Therefore, processing at distributed locations may be 
controlled using eventcounts which are signaled and observed with the 
advance and the await primitives. 

A sequencer is a variable provided by the system to control the 
allocation of a system shared resource. The sequencer is a positive integer 
number generator which starts with zero. It increments by one after providing 
its current value to any process which requests its associated shared resource. 
The ticket operation is the mechanism used to obtain a number from the 
sequencer. The number obtained is used as a threshold value in the await call 
to a system eventcount which is also associated with the shared resource. As 
users of the shared resource relinquish it, they increment the associated 
eventcount with the advance. This allows the user with the ticket value 
which matches the eventcount to gain access. An example of a shared resource 
controlled by a sequencer is the Ethernet LAN. 
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2. Eventcount Distribution 



The kernel of MCORTEX is resident on each SBC and schedules 
processes for execution. A process runs until it invokes one of the system 
primitives, the advance or the await, which results in the actions described in 
Section B.l. The advance of an eventcount, which is used only within one 
cluster, causes an update of that clusters eventcount value. Processes in the 
same cluster, which are awaiting the eventcount, may then continue to execute. 
Update of eventcounts required for intercluster synchronization are packetized 
for transfer, via the Ethernet LAN, to the other cluster. The operating system 
procedure which accomplishes the transfer is located on SBC 1 of each cluster 
and is referred to in this thesis as the driver. The driver is the system software 
modified to allow for user data transfer between clusters. 

3. Data Distribution 

Data which must be shared between processes of the same cluster is 
made accessible through the use of pointers to access the local cluster shared 
memory locations. In the RTC* system, buffering of data must be done explicitly 
by user processes since no means of dynamic allocation presently exists. In this 
thesis, the real-time application requires the immediate use of the data generated, 
which precludes the need for buffering. Static storage locations, which are 
overwritten, are used for transfer of data throughout the system. 

Data transfer from one cluster to another is accomplished by first 
establishing an absolute address in the local cluster shared memory to receive 
the data to be transferred. A pointer is used to access the absolute address in 
shared memory and the data value based at the pointer is updated. The system 
driver is then notified that a data value is ready for transfer. The Ethernet 
L.\N sequencer provides the ticket to the user process for this data transfer. 
Once the ticket for this data value matches the eventcount associated with the 
Ethernet LAN, the data value is transferred to the driver’s transmit data block in 
the appropriate data field in local cluster shared memory. The driver then causes 
the necessary calls to system subroutines to allow packetization and transfer over 
the Ethernet. 
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At the receiving end the message is processed by the local ECCB and the 
data is placed in the receive data block. The driver then stores the data value at 
the absolute address designated in the receiving clusters shared memory. 
Another pointer is then used in the receiving process to access the absolute 
address in shared memory. The data value based at the pointer is then available 
for further computations in this cluster. When the eventcount associated with 
this data transfer is updated via a similar procedure, the remaining computations 
are performed. User process eventcounts prevent the generation of additional 
data until the remaining computations in the present iteration are complete. 

Appendix B provides an explanation of the steps necessary to create the 
system driver and user command files. The driver modifications required to 
transmit and receive data values for the distributed decision algorithms are 
show'n in upper case lettering in the system procedure SYSDEV.PLI in Appendix 
C. User defined pointers and variable basing are shown and described further in 
the user procedures PA2, PAS, PB2, and PBS in Appendix D. 

C. ALGORITHM IMPLEMENTATION 

Each cluster can be viewed a'S representing the set of local processors of a 
particular sensor which obtains large volumes of raw observation data from a 
target for initial processing. Decision rule parameters and raw observation data 
are read from local disk storage to the processes of two SBC’s in a cluster. Two 
identical data sets are processed in parallel to generate a different reduced 
statistic in each processor. One statistic is to be used locally (at the same sensor) 
in further computation while the other is to be sent to the remote sensor for use 
in further computations. The local sensor then receives a reduced statistic from 
the remote sensor to combine with its locally retained statistic. The final result 
of the combined statistics is then compared to a decision threshold and the 
decision is displayed at a local sensor terminal. 

1. Process Distributivity/Parallel Processing 

The implementation of the decision rule described by (l) is accomplished 
with the following organization. The sensors associated with the two system 
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clusters, as well as the clusters themselves, are referred to as SENSOR A and 
SENSOR B. As illustrated in Figure 4, each sensor uses two processes labeled 
PA 2 (PB 2 ) and PA3(PB3). Process computations take place in time order from 
left to right and computations shown above/below one another are performed in 
parallel. 



SENSOR A 



PA 2 ; Compute (Xq) Compute A^ (Xq) + A^(Yq) 



PAS: Compute A^ (Xq) 
SENSOR B 
PBS: Compute A^(Yo) 




PB 2 : Compute A g (Yg) Compute -^5 (Yq) + A^ (Xq) 
Figure 4 - Computations of Reduced Statistics 



Processes PA 2 (PB 2 ) and PA3(PB3) are resident on SBC 2 and SBC 3. 
respectively, at each sensor. Computations are performed as shown, with the 
primed statistics exchanged between sensors to allow further computations in 
processes PA 2 and PB 2 . The detailed computations discussed in Chapter II are 
shown in user processes PA 2 , PA3, PB 2 , and PB3 of Appendix D. 

2 . Process Synchronization 

Synchronization of events during the decision rule computations is crucial 
for accurate and meaningful results. As illustrated in Figure 5, the careful 
synchronization of time critical events is coordinated with the use of two 
distributed eventcounts at each sensor. The AlEVC eventcount of Sensor A is 
advanced to signal the availability of the statistic A^ (xg) for use in PB 2 of 
Sensor B and the BlEVC eventcount of Sensor B signals PA 2 of Sensor A that 
A 5 (yg) is available. The A 2 EVC and B 2 EVC eventcounts control the timing of 
the next input operation at both sensors to ensure correct correspondence of the 
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observation data. In distributed processing multicomputer systems, it is essential 
that all threshold values used in the calls to the await primitives for comparison 
to the eventcounts, be initialized properly to ensure continued operation of the 
real-time system. 



SENSOR A 



GET COMPUTE AWAIT 

Xq (xo) BIEVC 

PA2:|--| 1 1 



COMPUTE & COMPARE 
A/t (xo) - As(yo) ^ In r 

ADVANCE A2EVC 



GET 




GET COMPUTE SEND 

. Xq , A^(xo) TO B 

PA3:| 1 H 



--i: 



AWAIT 

A2EVC 

ADVANCE AlEVC 



GET 




SENSOR B 



GET COMPUTE 

Yo (Yo) 

PB2: I 1 



AWAIT 

AlEVC 



COMPUTE & COMPARE 
(Yo) + (xo) ^ In r 



ADVANCE B2EVC 




GET 

Yo 

^ 



GET 
PB3: 1~~| 



COMPUTE 

^b(Yo) 



SEND 
TO A 






AWAIT 

B2EVC 

ADVANCE BIEVC 



GET 




Figure 5 - Synchronization Diagram 

As one might expect, there is a need to ensure that the required statistic, 
A 4 (xq) or ^^(Yo)’ is available for use prior to advancing the AlEVC or BIEVC 
eventcounts. This is insured by the forced synchronization of events inherent in 
the sensor to sensor transfer of user data and eventcount updates. The statistic 
to be transferred is stored in shared memory and transferred as described earlier. 
Once the Ethernet LAN sequencer ticket value is obtained for the data transfer 
and the request is placed in the ERB queue, the appropriate AlEVC or BIEVC 
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eventcount is advanced causing a system request for a ticket value from the same 
sequencer. This places the eventcount transfer request, which will signal the 
availability of data, behind the data transfer request in the same ERB queue. 
Therefore, when the eventcount is finally updated at the remote sensor the 
statistic required will be in place and available. 

In the final stage of computation the reduced statistic retained locally 
and the statistic received from the remote sensor are added in processes PA2 and 
PB2 of each sensor and compared to a threshold (see Figure 2). The reduced 
statistics (xq) and Ag(yQ) are added and compared to the threshold at sensor 
A. Similarly, Xg (yg) and A^ (xq) are added and compared to the threshold at 
Sensor B. Results of the threshold decision are tabulated on the local consoles of 
each sensor and the loop begins again with the next observation vector read from 
disk. The processing of input observation vectors continues, simulating real-time 
operation until the vector files are depleted. 

D. RESULTS OF THE SIMULATION 

In the development and use of the test environment it was verified that it is 
important to distribute computation among processors to better utilize the 
available computational ability and minimize interprocess communication. 
Processes at each sensor were broken up and distributed among the available 
processors to gain increased computational advantages. Since processes at remote 
sensors had to be carefully synchronized, specific semaphore-like mechanisms 
were made available to provide this synchronization over the network. The 
specific mechanisms used in this implementation are the await and the 
advance. Correct operation of these synchronization mechanisms over the 
network depends on the prompt and orderly communication of protected 
variables used by the synchronization mechanisms. This orderly communication 
is achieved by the ticket operation. Successful implementation of a distributed 
decision algorithm requires the availability of all of these control mechanisms. 



28 



IV. CONCLUSIONS 



The process of distributed decision making by two cooperating sensors 
observing a common phenomenon was introduced in this thesis. Decisions reached 
in this cooperative way produce more 'reliable results than those of sensors acting 
alone. Such decision procedures are characterized by the need to perform local 
computations at each sensor and to communicate partial results to the other 
sensor. Although several types of algorithms were cited to accomplish the desired 
distributed decision procedures, all have similar computation, communication, 
and process synchronization requirements. 

A particular distributed decision algorithm based on the generalized likelihood 
ratio test was implemented to explore the computation, communication, and 
synchronization problems. The implementation was accomplished on a two node 
network connected via an Ethernet local area network. Each node of the network 
contained the required number of identical microprocessors sharing a common 
bus, shared memory, and network interfacing. 

Problems of intercluster as well as intracluster synchronization of events 
between processes to ensure the timely input of observation data and the 
coordinated computation using the shared data from the opposite cluster were 
tested and resolved. Initial results using the generalized likelihood ratio test 
algorithm demonstrated the feasibility of performing the computations involved 
in the distributed decision algorithms in a realistic environment. The 
requirement for carefully designed, network-wide process control mechanisms was 
also found to be essential. The specific procedures used were discussed in the 
body of the thesis. 
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APPENDIX A 

Quadratic Classifiers 



Specific formulas for the quadratic classifiers, (xq)) (^o)> '^B(yo)> 

A Q (yo) described in Chapter II are provided in this appendix. Each quadratic 
classifier was derived similar to A^ (xq), in Chapter II, Section B. The 
coefficients. A, b^, c, A , and c , the necessary expanding equations for 

variables and and the estimates, y, and x, , are 

given as functions of the known terms, Kj|'\ nij' and ^ 

The coefficients computed for 

A^ (xq) = x^A x+b^x + c 
are 



A = - 
2 



b^ = 



kW|-‘ - |Ki‘)|-‘] 
ln,a)|!- |k 0)|-' - |mW|’- |K,'->]-'] 



2 



[Ki2)]-i mi^) - + In 



Kp) 



Kji) 



The coefficients computed for 



A^ (xq) = x^ a X + b^ 'x + 



are 



A' = - 

2 
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c = 



2 



K( 2 ). 



|K (])J- mi% - (m (ig- 1K<»J- mO,), + In 



Kj])^ = Ki') - b 4>I |Kj'l|-' Bi,"’' 

Kif, = K(^) - B.4) IK^)]- B^'J- 

m4|), = m.OI + b4>I |k 4)|-' (y - mj')| 

mif, - mfl + B4> [K4)|-> ly - mW| 

y, = m4) + B4)’'|Kl»|-'|x-mO)| 
y, = m^) + B4)^1K4I1-> |x - mf'l 



The coefficients computed for 

(yo) = A y + b^y + c 
are 



b’' = 



A = I [ikW]-' - 1k4)|->] 

(mj’)]’' |k4'|-> - IK^'I- ] 



c 



2 



(K^’l ' ni4> - (nij'l]’' |KjJ‘*| ‘ mj" + In 



|Kfl| 

| k 4 »| 



The coefficients computed for 

(yo) = y^A y + b^'y + c 



A' = 



2 




1 

o JL 



are 



■' = [Kv.r iK'y.i-- [mfi'.i’' (Kii',1 



-1 



m 



(2) 1^ 



(Kif.l 



-1 



m 



(2) - 



KJV, = K(‘l- Bi‘l 

Kii>, = Kfl - B,W'’(Kpi|-‘ Bip 
"'jVi “ ■"!!'* + iK,*‘'r‘ ix - 

|x - m 

X, = mi» + B4‘) IKni|-' |y - in n)| 

X, • (K, |y - nij)-l| 
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APPENDIX B 
LINK86 Input Option Files 



When linking files to create a command file for use on each SBC, the 
following command is invoked with the appropriate user filename: LINK86 
filename [I]. The "I" in square brackets invokes the input file option which directs 
LINK86 to obtain further command line input from the designated input file. As 
an example, the modules listed in CA.INP are linked with the command: LINK86 
CA[I], where the "I" indicates that CA.INP contains the names of the files to be 
linked. The name preceding the equal sign is the filename assigned to the 
command file. LINK86 CA[I] produces the command file CA.CMD, which is the 
system driver for Sensor A (cluster A). All files listed in the input file must be on 
the logon disk and must be of type object (.obj). Object files are generated by 
compiling files of type PLI (.pH) or A86 (.a86). The above steps also apply for 
linking the system driver files for Sensor B as well as the user files, processes 
PA2, PAS, PB2, and PBS, to create the respective command files CB.CMD, 
NUM12.CMD, NUM1S.CMD, NUM22.CMD, and NUM2S.CMD. 
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** C A. INP input option file 

« >;c :}: -it 5is :{! :^c # »}; s;.' jjc # if; j;s 4 : j!5 « ^ # :jc # >Jc ijs jjc « 5^5 jJ: >!t :{: jfc #>!! jj: s)t sis ^ si: sit ;;t 

sis >;: •-;: 3{S sit si: sj: s): sjs sis s): >!: si; sis s;s :{: :;: s'.s s;s s;s sis s;s s;s « sis « s;: « sis si: sis sis sit :4c si; s|s sic sic sic sic sic sic sit sic sic 5|c ^c sis sic s*t -^c sic sf * :|c sicsic 

CA = 

SYSINITA [C0DE[AB[439]] , DAT A [A3 [800] ,M[0] , AD [82] ] ,MAP[ALL]] . 
SYSDEV, 

ASMROUT, 

GATEMOD 

5jc >|c 5*^ 5;? 5;o;s 5;r :!r 5;? 5!t s:: 5|: 5^: 5;t s;? 5 : 0 ^ :;s5;€ s:? :;c s;: ^ 2 ;: 5.H: ?;« 5^s :^c ^ 

:}c 5{s y,: 5[c 5|C s;: s;c >;« 5lc 3|S 5)5 3 ;? il? y,« >:: s;? 5l: s'? y.c s;c « >;: 5|< :(c 5;s 5;s y.: 5 ;? 5 ;: ?:? ^ 5{? sic 3;c 5 ^ 

NUf^lZ.INP input option file -- 

>;c s;c ;;c ;;c y^ ;|c >|c sJc s.'c ;;c ;|c :|c y,c y.c sjc ?;c sic sic y,c S|c ;:c ?;s sis s|s 3|c s|c 5>: 35 c 5|i 5|c 5|s s|c 3|< s|c s|c s*s 5|c s|s s': 3|c 5|c s|: s|c >|s s|s s|s s'^ s'^ s|s s|: s|c 

s|: >|c y^ s|: sic y s >|c s |c s|s y^ sic sis s': sis s;: 5{c s|s y,: s,*: 5|c >|c si: >,•: y.c s;: 3 jc sjc sjc sjc sjs s|c 5|c y^ sjs sjc s{c 5|t sjs :^c sjc 3|s s|c s|s sjc s|s sis s;c ;<r y^ sis sjs 5|c sjs 5|s s|s s|s 5|s 



NL’M12^ 

SBCPINIT [CODE [A3 [439]] , DATA [A3 [300] ,M[0] ,AD[82]] , MAP [ALL]] , 
PA2 , 

GATEMCD 

;1: sic si', si: sit si: sic sic sic sic si: sis ;I; sic sic sic sit :|: sic si: sic s.t ^t sit sic :{: sit :{: sic sf sicsic sic sit sic sic sis si: sic sic sS si: sics!: sf sic sic sf sic s!t si: sic sic sit sit ■.;: sit si: sf sis 
sis sic sic sf: Sit S.C sf: >it sic sit sit sic sic sit sf sj: sis sic sic ?,: sic sic sic sic sit sf: sic sic sic sic sic sit sjt sit sf :{: sic sic sis sic sic sic sic s;c sic sic sit ijz sic sic sit sit sic sic ^c sic sis sic s? 

NUM13.IM? input option file -- 

5 |C :|: ^ :|: ;|: s|: s|: s;: s|: s|: -A si: s|: s|: ;|: si: s|: s;: s|: s;c si: y: si: si: y^ y: s|: sj: s): ;I: :\t si: y: si: si: sic s'^ si: si: ;I: s>; s|c y.: si: sj: si: s): si: si: ^ s|: si: y: sj: y: s|: 

y: y: y : yt y: y: y: yc y: y: y; y : y: y: s;: y: y: y: y: y: s;: s;: y: yc y: y: s,: y: y: y: y: y: y: y: y: y: y: y: S|c y: y: y: y: y: y: y: y: yc y: y: y: y: y: sic y: y: y: y: s|: 

NU'IIS^ 

SSC3IMIT [CODE [A3 [439]] .DATA [A3 [320] ,M[0] ,AD[?2]] , MAP [ALL]] . 
?A3, 

GATEMOD 



34 



** CB. IN? intmt option file 

sjc 5 |s#s!s :(c :jc s(c sic s;s sis sit sic sis s.ss;s sis :? s? sis sissf: sissic sic sis sit sic^ssissls sis sf! si: sS sissies^ s.'s 5|s sis sis sis sis sjss|c:<s sis siesis si: sis sis sics); sis s'^sjssls sis sis 
s;s sis sis sissis sis sis sis sis si: sissis sis sit si: sis sit sit si: $IS sis si; sis sis sis sis sis Si'S sis sis sis sis sit sis sis sis sic slssls sit sis sj: sics}: sic sit >Is sis sis sis sjt sis sis sis sis sis sis sis s|t sit 

CB = 

STSINITB [C0DS[AB[439]] , DATA [AB[800] ,M[0l ,AD[82l] ,MAP[ALL]] . 
SYSDEV, 

ASMROUT, 

GATEMOD 

s|t5it<:5ic:itsic:itsiss>:sit:{ti(csit:!tsisslcsit5!ssltslc:jcs{cslssls5,'s#s!:s!t5!s<ssit3!ss}tsiexssicsisslssis5}:5!ss!ts;ss!csissits{tsls:{:s!ts!csf:sis5ics|s5!ty,ssississ{s 
si: sit sis y.t sis sis sis sis sit sis sis sis sis sis sis sic sit sis sis sis sit sis sis :{s sis sic sit y.c sis « sis sit sit sis sis sic sis sis sis sft « sis sit sj: sis s>: sis sis y.c sis s'.: sis sis * * -it ^s sje sis s,': 

NUr^22.lN? input option file 

sit sis sit sis sjt sjs s^ s;: sis sis s? si: sis sis sit sis sis sit sis sis sissis sit sic sis sics): sit sic sit sit sit sit sis sis 5 }t sis sftsjs sis sis sic sis s>: sis sis sis sissis sis sit sic sis sis sis Sit Sis sis Sit 
sit if. if sis s)s sit sic if sit sit sis sit si< >it sit sit si', sis sis sic sit si; y.t si' s); sit sic sit sis if sis sis sit s): sis sis sit sit y.s sic s': s)t sit sis sic sis « if sis if if if if if if sis sit sit sis sis 

NUM22= 

SBC2INIT CC0DE[AB[4:39]1 , DATA [AB [800] ,M[0] ,AD[82]] .M^FCALL]] , 
PB2 , 

GATEI^OD 

5;: 5|s 5{C : 3{5 :}c ^ :Jc 5^ 3|; 3}c s;s s;s « 5? 5|i Jr :{S aC 

^ ^ Jr ^ Jr Jr A- 'r ❖ sj: ^ y,c 5jc 2'^ y.c :|c >it :;c ?;? ;|t 5;c i[i 

-- NUM23.INP input option file 

^s sis sis sis s)s s? sit s): sis sis sis s): sit s): sis s): Sit sit sis sis sic sf; sis sic sit sis y.t sis s): s)t sit sic s{t sit 5): sit sit sit sic 5): s): s)t sit sis sis s|s sit sis sit sit sis s;s sis sic sis s.s si: sit sic 
sis if sit if if if if if sis sic si- sis sis if if sis si: sic if if i: if if si' si: si: si: sis s': si: slssi: sis sis sis sis sis if if sit if sic sis if if if si: if sic sis sis si: sis sis s): s;t sit s.s s;s 

Nar^23= 

SEC3INIT [CODE [AE [439]] , DATA [A B [800] ,M[0] , AD [8211 ,r^A?[ALLll . 
?33, 

GATEMOD 
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APPENDIX C 

D evice Driver and Packet Processor 
Source Code 



This code consists of PL/I-86 and 8086 assembly language modules. When 
linked as described in Appendix A and loaded in local memory of SBC fl of each 
cluster, the driver handles the systemwide distribution of user data and 
eventcounts via the local area network. 

Initialization modules (SYSINITA iz SYSINITB), each for their own cluster, 
define cluster addresses, create user eventcounts, establish eventcount 
distribution, and create the procedure space, under operating system control, for 
the driver, SYSDEV. The system definitions file, SYSDEF and the file 
AT3010.DCL are required when compiling SYSDEV. Any user eventcounts, 
sequencers, or shared variable pointers which are defined in SYSDEF must be 
updated when these items change with new synchronization and control schemes. 

SYSINITA and SYSINITB must also be updated whenever changes are made 
to user eventcounts or their distribution. Recompilation and relinking are also 
necessary to produce the updated command files CA.CMD and CB.CMD. 
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3^ 5}: 3}: ^ :jc 5ti # 5j: 3^: :Jc 5j; :!c 5{c S!c s;c 5}c s;c 5{C :jc :5s :{c :{c 3{t 3J5 >tt 5^ 5jc 3;c :;c ?;c J.*? >;c 5(2 3?t ^ j: 

55S3{:5t:5{:55:5iC3;25;t3;2Sj:5;S5{c 3;C3;C3;S3;2 3,*2 3;2 3{C3^:3{C 3;t35: 3;S SjS 3j« >;C5;C ^ 3}:5jC 5jC 3{S SjSSjC 3j: S)? s|2 3jC 5lS 3}S SjCSl: >J: i;S 3;S3jt SjC 5(23;; 3j? 3|2 >|2 3(2 3.2 SjC 



3 jS 3)2352 



3|2S|2 
5(2 5{2 



CLUSTER A INITIALIZATION MODULE SYSINITA.PLI 



2 3|2 42 3j2 5;23j23;2y,2 3;2 3,'2^3;2 3)2 :jc 5|2 3(2 3{2 3}: 3(2 5{2 3)2 3j23j2 3)2 Sjs 3{2 3jC 5|2 Vs 3)2 3^2 3j2 3|c SjC 3)2 3j2 3J2 s): 3)2 5)2 3|2 3)2 3)2 >); 3)2 >;2 5)2 3)2 3)2 3)2 
3j2 3)2 3)2 3)2 3)2 3X 3)2 5)2 3)2 3)2 3*2 3)2 5)2 5)2 3)2 3)2 5)2 3)2 3(2 3}2 3)2 3)2 5)2 3)2 3)2 3)2 3*2 3)2 3)2 >)2 3)2 3)2 3)2 3{2 y*2 5|2 5)2 3)2 3)2 3{C 5)2 3)2 3J2 3)2 3)2 3)2 3)2 3)2 3)2 3)2 3)2 3)2 3)2 ^,2 3)2 3)2 3)2 3)2 3)2 



SYSINITA: proc options (main); 

%include 'sysdef . pi i ' J 
^replace 

EVC_TYPE by '00'b4; 

/^' main ='•'/ 

call def ine_cluste r ('0001'b4); /* must be called 

prior to creatine 
eve's '• V 



USER 

CALL CREATE_EVC (AISVC); 

CALL CREATE_EVC ( A2EVC ) ; 

CALL CREATE_EVC (ElEVC); 
SYSTEM 



call create_evc f EP.B_FE.AD ) » 

call create_evc (ERE_WRITE); 

call create sea (ERR WRITE_REOUEST ) ; 



/* distrib. mao 
been created 



called after eventcounts nave 

t./ 



/* local and remote copy of AIEVC needed */ 



call distribution_mao (EVC_TYPE, AIEVC, '000^ 'PA); 

call create proc ('fc'b4, '80'b4, 

'0941'b4, '0800'b4, '0053'b4, 

'0439'b4, '0800'b4, '0c00'b4); 

call await ( 'fe'b4. '01'b4) ; 



END SYSINITA; 
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5|C 3|s 5jp :{? Jjt 5{C ^ sjc 5;s :{s 5jc 5*c ^ s;: si: ^ 3{C :^c 5{c :}c 5jc s;: 5^ 5*C s;? ^ 5je ^ 



^3i:3;c:^c5jc5j:; 



^s;: >}c sjcs;: 5 {: si: sicsj: sic s;: sj: 5;: ?;: 5;: jf: 3{: 5^: ❖ ^ 'I' ^ 5;: s',: 3 (: :|: s,': s]: sj: sj: sj: ;*: s',: sj: s;: s;: s’,: s;i 5|: sj: s;: :!: s;: s',: sj: ii s{: s): 5 ;: 



«5{S 



CLUSTER 5 INITIALIZATION MODULE SYSINITE.PLI 






^4% ^1% ^4^ 



3*s 3{: sf: s;: Sic sj: sj: :}: si: :{: 3(« s;: :{; s;: y.: sj: s;: sjc s;: s;: S|: 5 ;: sj: s;: 5(: s;: sj: 5}c 5 ;: sj: s;: sj: 5 ;: :;: s|: sjc 5'^ s ;: 5 ;: 5 ;: sj: si: 

jw» ou V* %*# 

^4^ 0 y ^ ^4% ^4% ^4^ «P|^ ^4% 4*1% ^4% ^ -Y* ^ ^ ^ ^ 



SYSINITB: proc options (main); 

%include 'sysdef .pi i ' ; 

%replace 

EVC_TYPi by '00'b4; 

/- main 'V 

call define_cluster ( '0002 ' b-i ) ; /* must be called 

prior to creat i ns 
eve's -/ 



/«j:c^ts:s USER 



CALL CRSATE_EVC (AIFVC); 

CALL CREATE_EVC (BIEVC); 

CALL CREATE_EVC (B2EVC); 

/-*- SYSTEM 

call create_evc (E1B_REAI)); 
call create_evc (ERB_WRITE); 

call create_sea ( ^RB_WRITE_REOUEST ) ; 

/^' distrib. map called after eventcounts have 
been created "V 

/■'' local and remote copy of BIEVC needed */ 

call distribution_map (SVC_TY?r, BIEVC, '0002 'S4); 

call create_proc ('fc'o4, '30'b4, 

'094l'b4:, '0800'b4, '0053'b4, 
'0439'b4, '0800 'b4, '0800'b4); 

call await ('fe'b4, '0l'b4)5 

END SYSINITB; 
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^ ^ Jjs 5|C 3j: 5{t 5|c :J: 5{s ?;« 5}: :{c 5{S X? 3}S s|s ^ ^ 5{t 5{t 5}: 5^ 5r >r ?r >r 5jc ?! 

/5jc:;s:jc^:{c5 



FILE STSDEF.PLI 



MARK A. SCHCN 



24 JUL 85 



/=U>i! 

/S!'^ = = = = = = = === = = = = = = = ==== = = = = = = == = = = = = = = = == = = = = = = = = == = = = -: 

/sjc# This section of code is ffiven as a PLI file to he 

%INCLUDS'd with SYSDEV.PLI. ENTRY declarations are 
xade for all available MC05TEX functions. 

/ «JU WU kO «*« %U «A> 0« «JU «JU V' «JU %*« < 

/ *Y» ^1* ''I'' ^'’ *Y' *Y' 't* 'v* 'I' o' o^' o* or Or o' o' O' *»' ^t' O' o' *f* "r *i' O' 'i' o'^r ‘ 

/ »V '** V* •J* '** *** «•» V* V* V* »V %*i» «JU •>** •*« V» V* V* V* V* V' «V **'• *** V' »*' *** ' 

O' O' O' op* O' O' 'I' O' O' O' 'r 'i' O' O' 'i* O' O' O' 0* O' O' O' O' O' rr rr ■'I'^t' o' o' ^r 't' O' O' O' o' O' o' O' o' O' O' O' '*' O' o' O' ''»' *«' *^ 1 ' * 



o / 

' o* O' ^/ 

' 'r O' / 
.1- / 

:'-:s5!' / 

.*« / 
O' O' / 

-'•V 

isS:!'- / 

''"•V 



DECLARE 

advance 'NTRY (BIT (8)), 

/'^' advance (e vent_coun t_id ) ■■'/ 

await ENTRY (BIT (8), BIT (16)), 

/* await (event_count _id , awai ted_va lue ) */ 

create_evc ENTRY (BIT (8)), 

create_evc ( even t_coun t_id ) ’•'/ 

create_proc ENTRY (BIT (3), PIT (8^ 

BIT (16) , BIT (16), BIT (16) , 

BIT (16), BIT (15), BIT (16)), 

/’■' create_proc ( proces so r_id , processor_prio n ty , '•'/ 
/* stack_pointer_hiehest , stack_se^’, ip -''f 

/* code_seg, iata_see, extra_ses) =V 

create_sea ENTRY (BIT (8)), 

/* create_seo ( sequence_id ) *'*/ 

preempt ENTRY (BIT (8)), 

/* preempt (processor_id ) •='/ 

read ENTRY (BIT (8)) RETURNS (BIT (16)), 

/* read (event_count_id ) '^/ 

RETURNS cu rren t_event _coun t 

ticket ENTRY (BIT (3)) RETURNS .'BIT (16)), 

/* ticket ( sequence_id ) 'V 

RETURNS ur.io ue_ticket_value '•'/ 

def ine_cluster ENT^Y (bit ''16)), 

/=*= def ine_cluster ( local_rluster_adire5S ) "/ 

d i st ri but i on_ma p ENTRY (bit (3), bit (3), bit (16;), 

/* distribution_map ( d i s t r i but ion_type . id, clus ter_add r ) 

add2bitl6 ENTRY (PIT(16), ^IT(16)) RETURNS (JIT (16)); 
/- add2bitl6 ( a_16bit_#, ar o the r_16bi t_<^ ) ■■'/ 

/* RETURNS a_16bit_^i - ano the "_16bi t_# =V 
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%replace 






**=*= 'SVC^ID's *** 
(1) USER 



AIEVC 

A2EVC 

BIEVC 

B2EVC 

/■^ (2) SYSTEM 

ERB_HEAD 
ERB WRITE 



BY '0l'B4, 
BY '02'B4:, 
BY '03 'B4, 

BY '04'B4, 



by 'fc''b4, 
by 'fd'b4. 



/❖. 



•*' / 



'V 



SEOUEMCER NAMES 
(1) USER 

USSR PROCESSES USE ERB_WRITE_REOUEST ONLY 
(2) SYSTEM */ 

ERB_WRITE_REOUEST by 'ff'b4, 

/« 



--- SHARED VARIABLE POINTERS 
(1) USER -/ 





PB 




BY 


'8CC0 




PC 




BY 


'8DD0 


/- 


(2) 


SYSTEM -/ 






bloc 


k_ptr_value 


by 


'8000 


'b4. 


xmi t 


_pt r_val ue 


by 


'S0C8 


't4, 


re v_ 


ptr_val le 


by 


'B666 


'b4, 


END 


RESERVE 


by 


'FEE? 


'b4; 
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^ 

9 ^ :{o;c;{: $}c9iC9;o}c9^:}e9;:9;t9;£9;: 9}o;;9;e9^9;c9;t:^9;e9^9i£ 

«# «« 

** N 13010. DCL FILE jJ 

3{S J^C ^r '.' 

:{c 3{: ?;: 5^; 5{C s;? 9}: 5|S j;c 5|S 5}c 3{: s}: :fc 5{S 3{S 9jc S}f ?Js s^c 5{C j;c 3{C 9js Jjs 5{S 5{i 9}: 5{5 9}C 5^ 5 !s :{c 5 ;: :t: i^s 3(S 3{; 9 ;: 9;s S|i 5jc :{c 9{C s;r :<: 9^ 3;j s;c S^J s;s j;c :ic ?;c 5;c 

iji <!' »r 5r 'i' 'I* 't* V '(» 



*v JU . 1 # 

'»'■ T“ 'T' 'V 



**-» <Ju "X. ju »♦*► *v »•* <JU V# « V »v» «>» »•> «!.> ^v* %V ^*<» » V »V %V '*-' 

^ »|» ^|S «|« ^ ^ 1 ^ ,f|\ #1% >|S 



Jr »V »•-» Jr »'r JU Jr • V »*r «tr »' 



*T' rr 'I' 'r 't* 'C- *t* ’t* 



%replace 



/" 



I/O port aidresses 



These values are specific to the use of the INTERLAN 
NI3010 r^ULTIBUS to ETEEF.NET interface board. Any change 
to the I/O port address of '00b0 ' hex (done so with a DI? 
switch) will require a change to these addresses to reflect 
that change. 

command_register 
conmand_s t atus_register 
transmit_data_register 
interrupt_status_reg 
interrupt_enable_ register 
high_byte_coun t_reg 
low_by te_count_reg 

end of I/O port addresses '"^/ 

InterruDt enable status register values *^'/ 

_ ”** . _ . —X ^ •% A 









by 


'b0 


'b4, 


by 


'bl 


'b4. 


by 


'b2 


'b4. 


by 


'b5 


'b4, 


by 


'bS 


'b4. 


by 


'b-^ 


'b4, 


by 


'bd 


'b4. 



/- 

/- 



/« 

/« 



disablp_ni3010_ interrupts 
ni3013_intr'Dts_disabled 
receive_block_ava liable 
t ransmi t_dma_done 
receive_dma_dor e 

end register values */ 

Command Function Codes */ 



by "^0'b4, 
by '00 'b4, 
by '34'b4, 
by '06 'b4, 
by '0?'b4, 



module_int er face_l oopfcack 
i nt e rna l_loopba ck 
<'lear_loooback 
go_of f line 
go _online 

onboard_diagnostir 
cl r_inser t_source 
load_t ransmi t_data 
lo ad_and _se nd 
load_group_addresses 
reset 

/* end Command Function Codes 



by '01 'b4, 
by '<^2'b4, 
by '03 'b4, 



by 


08 


b4, 


by 


'09 


'b4, 




by '0a 


by 


0e 


b4, 


by 


'28 


'b4. 


by 


' 0 

£L 


'b4, 


by 


'2a 


'b4. 


by 


'3f 


'b4; 



5 !:/ 
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5^ 3|s :4c 5^; ^ 5^: sjs 5{c 5{c 5}: ^ 5jc sjs 3|s s{c 3{c ^ >{c >{c s;? 3{: 5j: 3{s 3*« 3{« 3{c >;c 5i: ^ 5t: 

5ji s^s s^c s;? 5;^ ^ ^ rijc 5|i 5|C s;s s;c 5;i s[« i\i 5,'s >;« :^fi i\t ^ 3|c yc :;c^ 5ji 5|S yc >;c :;t 5*tyc 5»*C 5;« >;? ijj Jjs :Jc 5|< 5{« j;< ys :!« y,: yc :|c ;|J jf: 5|: y^ 



J><5jt 






CLUSTER A 

ajssjs 



v<U 



stasis 

^3|C 



ADDRESS.DAT FILE - USED BY SYSDEV.PLI -- 
1ST THREE VALUES USED IN SUBROUTINE 
progran_^roup_ad(ire55e5 
LAST TWO USED IN MAIN PROGRAM SYSDEV 
TO IDENTIFY THE LOCAL CLUSTER ADDRESS. 



<ju^ 






%•* nt* 

'l' 'I' •<'•' 'T* 'I* '«* '|5 V 



^1# «<# «JU ^ OU 

«l« «Y* 'i' 



oi« %i» «fu vu «.*> ^ <u« »v Vf <*'» ^ V? <Ji< V>» »v y* %v y- y » y» .,i» ou y * *■» y» y» 

•'r ^ ^ ^ ■'r* ^ ^ •\r *T* ^ ^ ^ -T* ^ ^ 'C ^ 'T‘ ^ ^ ■V ^ ^ ^ n- 3i« 

»•» y^ %v »*' »•* '•*^ V* •*> y< »'«' »v «*' <^v «v **» «*^ »•» y» v» *•» ••» »•» 

»,» >,% >,% »,% >,« rfj* ^^<» «|« «|« 



1 . 

"3000000O'-b, '00000001 'b, 
'00000000 'b, '00000001 'b 



%V «V >V «JU OU VU Vy ^*^ 

>1^ ^1% ^ ^|V ^1% #1% /|« /|% #1% /|% ^1% <1% ^1% #1% ^1% 

%V %X^ ^JU VU %l# V# %V s*^ V^ V^ OU %•./ V^ ^V Vr %*♦ 

y^p ^1^ #y* ^jp ^p *Tp ^ip ^p ^p ^p ^p ^p ^p ^p #p ^p>J|S ^p ^p 4p ^p #p ^p #p ^p 



5;c y,c yc y,« y,; 

I# .V, *•- y. 



>.' >;« ; 
yj ;’€ : 



t-i): 

❖ 5l« 
yrsjj 

5n ^5n ' 



CLUSTER B - ADDRESS.DAT FILE - USED BY SYSDEV.PLI -- 

- 1ST THREE VALUES USED IN SUBROUTINE -- 

proffram_grcup_addres5es 

- last two used in MAIN PRCGRAM SYSDEV -- 
TO IDENTIFY THE LOCAL CLUSTER ADDRESS. -- 

y*% 

JC y« 5*S #,H y« 3{iC 3|« )JC S|% 5,C jJC 3jC 3|S i\* 5jS Zfi ifi 3|« 5ji 3jC 3^ JjC 3^ 3^ 5{C ?j» Sj* 3{« 5jS ij* JjS JjS SjS ^ 3^ y? 5,^ 5^ Sj» r^» 5^ 3^ JjC «|' 

\i s;s y: ?;s :;s y: yc y^ yc y? y: yc yc yj yj >;: y: :;: y< yc 5|< yc y: yc y« y« y: y« y: yc y« y< y{ yc yc y: s;? y^ y« y? yi y? y« ys y: yc yt :;c y« y c yc yr yc yi y: yc 



1, 

'00 000000 'b, '00000 010 'b, 
'00000000 'b. '00000010 'b 



SYSDEV: PROCEDURE; 

/* Date: 24 JULY 1985 

PrograTiTier: MARK 4. SC“0N (MODIFIED CODS FROM 

PREVIOUS TEES IS [2]) 



Module Function: To serve as the Ethernet Conmunica t i on 
Controller Board, ECCB (NI3010) device 
handler. This process is scheduled 
under MCOHTEX and consumes Ethernet 
Requests Packets (FR?) generated by 
the SYSTEMAIO located in LEVEL2.S-C S 
by USER PROGRAMS. 

It also processes any inbound 
packets by analyzing th^^ packet 
contents and making the appropriate 
MCORTFX calls. 
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^replace 



s vc_type 
erb_biock:_len 
erb_block_len_ml 
infinity 



by '00'b4, 
by 20, 
by 19, 
by 32767; 



^include 'sysdef .pli ' » 



DECLARE 



erb (0 : erb_bl ock_len_ml ) based (bloc'-c_ptr), 
2 command bit ( S ) , 

2 type_name bit (8), 

2 name_value bit (16), 

2 remote_addr bit (16), 



1 transmi t_data_bl ock based (xmit_ptr 

2 destination_address_a 
bit (B) , 

2 dest inat ion_address_b 

bit (a) , 

2 destination_address_c 
bit (6), 

2 des ti na ti on_add re ss_d 
bit (8), 

2 destination_address_e 
bit (8) , 

2 destination_address_f 
bit ( S ) , 

2 source_adl ress_a 

bit (a) , 

2 s ource_add ress_b 
bit { 3) , 

2 source_address_r 
bit (3) , 

2 source_addres s_d 

bit (a), 

2 so’jrce_address_e 
bit (8) , 

2 source_address_f 
bit ( S ) , 

2 type_field_a 
bit (9) , 

2 type_field_b 
bit (9), 

2 data (4) bit (9), 



2 USER_DATA (12) FLOAT, 

( TX_DATA_PTR ,XMIT_PTH ) POINTER , 

HIGH MEr^ORY ADDHESSES OF TX_DATA_PTE AND XMIT_PTF 
/- ASSIGNED IN SYSDEV 

DATA_TO_SEND FLOAT BASED ( TX_D AT i_?TF, ) 

1 recei ve_da ta_bl ock based (rcv_ptr), 



’V 



2 


f rame_sta tus 




bit 


(3) . 


2 


nul l_byte 




bit 


(e) 


2 


frame_length_l5b 




bit 


\ o ) 


2 


frame_length_nsb 




bit 


f S ) 


2 


destination_address 


a 


bi t 


(8) 


2 


des ti nat i on_add res s 




bi t 


(3) 


2 


destinati on_add re s s 




tit 


id) 


2 


destination _adiress 


A 

a. 


bit 


<B) 


2 


des ti na ti on_address 


e 


bi t 


:b) 


2 


destinati on _address 


_f 


bit 


(a) 


2 


source_aidress_a 




bit 


'8) 


2 


source_address_b 




bi t 


(?) 


2 


source_address_c 




bit 


(3) 


2 


sou rce_addres s_d 




tit 


/ /-X \ 


2 


source_address7e 




bi t 


■( 3 ) 


2 


source _add re ss_f 




b 1 1 


(3) 


2 


type_field_a 




cit 


(3) 


2 


type_f ield_b 




bit 


■3) 


2 


da ta( 4 ) 




bit 


i^) 


2 


USER_DATA. '12) 




FLOAT, 


2 


crc jisb 




bit 


(3 ) 


2 


crc_upper_pidd le_by te 


bit 


( ) 


2 


crc lower_middle byte 


bit 


(3) 


2 


crc_l s c 




bit 


(?) 


DATA 


. PTR.RCV RTF, BLOCK 


PT - 


) POINT?-' 



/* HIGH ^';F^’ORY ADDRESSES OF RX DATA PTR.RCV PTR.& 






BLOCK_PTR ARE ASSIGNED IN FILE SYSDEF 

DATA_ARRIVED FLOAT B AS ED ( RX_D AT A _?TR ) . 

index fixed bin (15), 

(aidr_e, addr_f) bit (r), 
address file, 

c opy_ie_ret;i s ter bit (?), 

( c lus t er _addr , er b_wr i te_val lie , i ) bit (16). 
(j,k) fixed bin (15), 
reg_value bit (8) , 

write_io_port entry (bit (8), bit (8)). 



/ 

/ 
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read_io_port entry (bit (S), bit (£)), 

initiali ze_cpu_i nterrupt s entry , 

e nable_cpu_i n ter rupt s entry, 

i isable_cpu_interrupts entry, 

write_bar entry (bit(16)); 

/* end module listing */ 



%replace 

codes specific to the Intel 8259a ?ro<?rammable 



Interrupt Controller 


(PI 


C) 


icwl_port_address 


by 


'c0'b4. 


icw2_port_address 


by 


'c2'b4. 


icw4_po rt_address 


by 


'c2 'b4 , 


ocw_por t_address 


by 


'c2'b4. 



/* note: icw ==> initialization control word 

ccw ==> operational command word 

icwl by '13'b4, 

/* single PIC configuration, ed^e tris^erel input 

icw2 by '40 'b4. 

/’!- most significant bits of vectoring byte! for an 
interrupt 5, the effective address will ce 
(icw2 + interrupt * 4 which will be 
(40 hex 5) * 4 =114 hex / 

icw4 by '0f'b4, 

/*■ automatic end of interrupt and buffered mode /master 

ocwl by '?f'o4; 



/'•' unmask interrupt 4 (bit 4), 

/* interrupt 5 (bit 5), and 

/* intern UDt 6 (bit 6). mask all others 



/^' end 5259a codes */ 

include constants specific to the N'I30ir board 

^include 'ni3010 ,dc 1 ' ; 
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Main Body -V 

call write_io_port( interrupt_ena'ble_regi star , 
disable_ni3010_internapts) J 
call initialize_pic ; 
call ini tiali ze_cpu_interrupts» 

call read_io_port ( command_s ta tus_regi 5 ter , reg_va lue ) ; 
call perf 0 rm_command (reset); 



call program_group_addresses ; 

/* assignments to t'^e source and destiration address 
fields that will not change ■•'/ 



call perf orm_commanii ( clr_inser t_source ) ; 

/* MI3010 performance is enhanced in this mode 



# Ou >1^ OU % 

^ ^1* ^1% ^ 



%V 



/ ^ *Jt# V# 

/ <Tj% ^1% ^1% ^|«* 

/* ASSIGN! POINTED VALUES, PREVIOUSLY DEFINED -FILE SY3D1 

A FLOAT BLOCK OF l-PYT' 
A FLOAT BLOCK OF 4-BYT' 



TX_DATA_PTR <-- PB = 8CC0 
RX DATA PTR <-- PC = 3DD0 



/« 

/" 

/« 

/- EL0CK_PTR <— BLOCK_PTR_VALU£ 
/- RCV_PTR <— RCV_PTR_VALUE 
XMIT_PTR < — XMIT_PT?_VALUE 



6000 THE ECB 120 
866? THE RD3 66 
S0CS -THE TD3 74 



-BYT 

-3YT 

-BYT 



-■:V 

-/ 

-•V 

'•V 

'*/ 

=v‘ 



<• >1# %V Oi# sV Ou 

• ^1% >1% >1^ ^1% ^1^ ^1% >1^ yy% yi|%, , 



:s */ 



• V 'i' ^ 



UNS?EC(TX_DATA_?TR) = PP; 

UNSPEC(FX_DATA_PTR) = PC; 
unspec( block_ptr ) = block_ptr_value; 
unspec( rcv_ptr ) = rcv_pt r_valup ; 
unspec( xmi t_pt r) = xmit_ptr_value; 

/■■' make one time assignments to transmit lata clock '’'■■/ 

transmi t_data_block .destination_address _a = '03'b4; 
t ran smi t _1 ata_block .dest ina t ion_add res s]]b = ^OO'bi: 
transmi t_ia ta_block .desti nation_address_c = '0O'b4; 
transmi t_data_block .destinat ion_adiress_ d = '0O'b4; 
transmit_lata_block .source_address_a = '33'b4; 
transmit_data_block ,source_address_b = '30 'b4; 
transmi t_data_block .source_address_c = '0?'b4; 
transmit data block. source address d = 'O0'b4; 



get the local cluster address - file was 
opened in proc program_group_addresses */ 

get file (address) list (addr_e, addr_f); 
transmit_data_block .source_add ress_e = addr_e; 
transmit data bl ock .s ource address f = addr f: 
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cluster_addr = addr e | | addr_f » 

put skip (2) edit CLUSTER ' , clus ter_addr , 

Initialization Complete 
(colds) , a, 1)4 (4) ,a); 

i = '0001d4; 

call perform_c ommand (^o_online); 

/* at this point copy_ie_reg = RRA , hut 
ie_reg on NI3010 is actually disabled */ 
call disahle_cpu_interrupts» 

do k = 1 to infinity; 

/* note: inter rupt not allowed durine a 
call to .‘^CCHTEX primitive "'/ 



erh_wri te_value = read ( EF ITE ) ; 

/- In the MXTRACS version of the RTOS 
all primitive calls clear and 
set interruuts (diagnostic message 
routines), so the N 13010 interrupts 
must be disabled on entry to i^XTRACE */ 
do while drb_wr ite_value < i); 

/* busy waiting ^ 

er b_vr i te_value = read (ERB_W?,ITE ) ; 

CO py_ie_regi ster=receive_block_available; 
call write _io_port (interrupt_enable_register 



receive_block_available ) ; 
call enable_c pu_interrupts ; 

/* if a packet has been received , this 
is when an interrupt may occur - can 
see that outocund packets are always 
favored. ' 



t 



do .5 = 1 to 1000; 

/'■' interrupt window for packets received */ 
end; /* do .) */ 
call disable_cpu_i nterrupts ; 

if ( couy_i e_reei st er = receive_dma_done ) then 
do ; 



ff. receive DMA operation started, so let 
finish. 

call enable_cpa_interrupt s; 

do while ( c opy_i p_regi ste r = recei ve_dma_done ) ; 
end; 

call di sable_cpu_ir.terrupts ; 
end; /* ift / 



copy_ie_regis ter = disable_ni3010_interruDts; 
call write_io_port(interrupt_erable_register, 

disabl'='_ni301//_interrup*s) 



end; /* busy / 
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/* ERB has an ERP in it, so process it ’*'/ 

/* no external interrupts (RBA) until 
the ERP is consumed and the packet 
gets sent 

index = mod ( ( f ixed ( i ) - 1), erh_hl ock_len ) ; 

/* 32k limit on parameter to fixed fen. */ 

transmi t_data_hlock.data( 1) = erh ( index ). command ; 
transmi t_data_'olock.data( 2) = erh ( i r.dex ) . type_name ; 

transmit_data_block.data{3) = 

substr(erh(index) .name_ value , 9 . S ) ; 

transmi t_data_block.data(4) = 

substr(erb(index). name _value, 1 , 0 )? 

IF (ERB { INDEX ) .COf>^MAND = 1) THEN DO; 

TRANSMIT DATA BLOCK .USER DATA U ) = DATA TO SEND; 



end; 



transmit_iata_block.destination_address_e= 

subs tr ( erb ( index ) . remo t e_add r , 1 , S ) ; 

t ransmi t_iata_bl ock .dest inat ion_address_f= 

substr(erb (index) .remote_addr, 9,3) ; 

call advance (?RB_FEAD); /* caution here !!!’ 

an ADVANCE will result in a 
call to VP$SCHEDULFR, which 
will set CPU interrupts on exit. 

It's the reason NI3010 interrupts 
are disabled first in the 
Do While loop above. 

/^' packet ready to go, so send it ’^Z 

call t ran smi t_packet ; 

Z^' copy_i e_register = RBA , but not actual register "Z 
call disable_cpu_i nterrupts ; 

Z* setting up for next ERP consumption '^/ 
i = add2bitl6(i, '0001 'b4); 
end; Z* do forever *^Z 
Z* end main body *Z 
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y jjc :^c sjc s}5 3jc jjc >?::{; jjc jjc 5j6 :«{ 5{c :4c :{c 3jc s}: 5{t 3jc 3{c :jc s;r jjc j}c ^ :}c 3^ 5n5{s5{c;jciic3f:;{c5{c ^ 



ini tialize_pic: procedure? 

DECLARE 

wri te_io_port entry (bit (8) , bit(8)); 

call wri te_i o_port ( icwl_po rt_address , icwl ) ? 
call write_io_port ( icw2_port_address , icw2) ; 
call wri te_i o_port (icw4_port_address ,icw4) ? 
call wri te_i o_port ( ocw_por t_address , ocwl ) ? 

end initial! ze_pic ; 

/:4c:jc5;c;4c:j::4c>{c3[c:4c3{cjjc:?c3lc3{:55c3^>{c3}c3{c5;ca;c3;£s»^5;c5{t3^5jc:4c5;s5^>;:j}e;!si;c5;cjjc5;t5;c5{:5;s3{:::<5,'<5*c5t:3[:3;:3;c:;c::c5:t::c;^ y 

per f orm_command : procedure (command); 

DECLARE 

command bit (8) , 
re^_value bit (S) , 
srf bit (8) , 

write_io_port entry (bit (6) ,bit (8) ), 
read_io_port entry (bit (8) ,bit (8) ); 

end declarations */ 

srf = '0'b4; 

call write io_port (command re,?ister , command ) ; 
do while (Tsrf 6. '01'b4) = "'C0'b4); 

call read_io_port ( in terrupt_status_re^ , srf ) ; 
end; do while */ 

call read_io_port 

(command_status_re^ister ,reg_value ); 
if (reg_value > '01 'b4) then 
do ; 

/- not (SUCCESS or SUCCESS with Petries) ’!'/ 

put slcip edit ETHERNET Board Failure ---') 

( col(20) ,a ); 

/=!' when this occurs, run the diacjnostic 
routine T3010/Cx, where x is the 
current cluster number / 

stop; 

end; /’^ itd 
end perf orm_command ; 
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transmi t_packet ; procedure external* 



DECLARE 

srf tit (8) , 
reg_value tit (S) , 
wri te_i o_port entry (tit (S) 
read_io_port entry (tit (6) 
enatle_cpu_in t er rupts 
disatle_cpu_ interrupts 
write_tar entry (tit(16))» 

/* tegin ’^/ 

srf = '3 't4; 

call write_tar (xmi t_ptr_valne ) * 

call write_io_port( high_tyte_c ount_reg , 't4 ) ; 

call write_io_port(low_tyte_count_re'?, '3c 't4); 

copy_ie_regis ter = transmi t_dna_doiie> 

call write_io_port(interrupt_enatle_register, 

transnnit_ima_done ! ; 

call enatle_c pu_i nt errupt s ; 

do while ( copy_ie_register = t ransmi t_dma_done ) ; 
end; /* loop until the interrupt handler 
takes care of the TDD interrupt - 
it sets copy_ie_reeister = RBA */ 
call per fo rm_com,'Tiand (load_and_send) ; 



,tit (8) ), 
,bit (8) ), 
entry , 
entry, 



end t ransmi t_packe t * 

:{c Jjc 5,'S 5’^ 5^t >;« >;s 5|c ! 



HL_interrupt_handler: procedure external; 



/=*' This routine is called from tne low level 
6f;86 assembly language interrupt routine f 

DECLARE 

write_io_port entry (bit (8) ,bit (S) ), 
read io_port entry (bit (8) ,bit (8) ), 
enable_cpu_interrupts entry, 

d isabl e_cpu_i nt errupt s entry, 

write_bar entry (bit(16)); 
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/* begin */ 

call write_io_port (interrupt_enable_regis ter . 

disable_ni3ei0_interrupts ) ; 

if (copy_ie_register = receive_bloclc_available ) 
then do; 

call write_bar (rcv_ptr_valne) ; 

call write_io_port (high_by t e_coun t_reg , '05^54) ; 

call write_io_port( low_byte_count_reg, 'f2'b4); 

/^' initiate receive DMA V 

copy_ie_register = recei ve_dma_done > 

call write_io _p ort(i n terf*upt_e nab le_ re sister, 

receive dma done); 



end; /* do =<'/ 
else 

if (cooy_ie_re 2 ister = recei ve_dma_d one ) then 
do; 

call process _packe t ; 

copy_ie_regi ster = recei ve_block_available; 
call write _io_port(interrupt_enable_. register, 

recei ve_bl ock_available ) 

end; /* if then do "/ 
else 

if ( cooy_ie_regis ter = transmi t_dma_done ) 
then do; 

copy_ie_regi ster = receivp_block_avai lable ; 

/'^ NI3010 interrupts disabled on entry 
end; /* if then do 

end HL_ir. ter rupt_hand ler ; 



J V# 



/ 



process_pacicet : procedure; 

DICL^EE 

DATA_ARRIVED FL0«T PASED (RX_DATA_PTR ) , 

"’X_BATA_PT3. PCINTE"-:, 

1 ocal_evc_val'ie bit (16), 
data_ptr pointer, 

remote_evc_value bit (16) based ldata_ptr); 
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if (receive_dat a_bloclc .lata ( 1 ) = evc_type) then 
do ; 

data_ptr = addr(receive_data_block.data (3) ) ; 

remote_ev c_value now has a value 

local_evc_value = read( recei ve_da ta_hlock .data , 2 ) ) ; 

do while ( local_evr_value < remote_evc_value ) ; 

call advance ( receive_data_hlock .data (2 ) ) ; 
local_evc_value = add2bitl6(lo''al_evc_value, 

'0001 'b4) ; 



end ; 

call disahle_cou_interrupts J 
/^' this nust be done due to setting of 
cpu interrupts by calls to MCORTSX's 
V?$SCEFDULER via «DV4?JCE 

end; /* itd */ 

IF is in this kdb then transfer I? TO use:-' high -/ 



else do; 

U.NSPEC(RX_DATfl_?T?.) = ?C; 

DATA_ARRIVED = R^CFI V T_D ATA_EL0CH .USER_DaTA ( 1 ) ; 

end; 



end process_?acket ; 



^ 

^ ^ >1% ^|« 0 ^ 01 % 0 ^ 0 ^% 0 ^ 01 % •'P ^1% ^ 0 ^ 0 ^% 0 ^ 0 ^% ^^% 0 \% 0 ^% 0 ^% 0 

prograTi_group_addr esses : procedure ; 

DECLARE 



is :*,s 5|s j;s 5{s j.s i\t 5;s 



v=;-v 



1 group_addr ( 40 ) based 'grouD_ptr), 

2 trc_group_f i eld_a 
bit ^8), 

2 mc_ 2 rouo_f ield_b 
bit (?). 

2 nic_ 2 roup_f ieli_c 
bit ( 8 ) , . 

2 mc_group_f iel l_d 
bit (8), 
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2 mc_group_f ield_e 
tit (8), 



2 mc_group_f ield_f 
bit (8); 



rSCLARE 

(eroup_ptr,p) pointer, 

(field_e, fieli_f ) bit (8) , 
bit_8_groups bit (8) based (p), 

( i ,num_groups ,groups_times_6) fixed bin (7); 

unspec (group_ptr ) = xmi t_ptr_value ; 
open file (address) stream input; 
get file (address) list ( num_groups ) ; 
do i = 1 to num_groups» 

group_addn'' i ) . mc_group_fi eld_a = '93'b4J 
gr ouT)_addr ( i ) . mc]^group_f i eld_b = '30'b4; 
gr oup_addr ( i ) .mc_group_fi eld_c = '00'b4; 
group_addr ( i ) . mc_group_f i eld_l = '90'b4; 
get file (address) list ( field_e , f ield_f ) ; 
group_addr ( i ) . mc_group_f i eld_e = field_e; 
group_addr ( i ) . mc_group_fi eld_f = field_f; 

end; /^'‘doi*/ 



call disable_cpu_interrupts; 

call write_bar (xmit_ptr_value) ; 

call wri te_i o_por t ( high_by te_c oun t_r eg , '00'b4); 

groups_t imes_6 - 6 rum_groups; 

o = addr (groups__times_6) ; 

call wri t e_io_por t ' low_by t e_c cunt_reg . b i t_8_grouos ) 

copy_ie_regi ster = transmi t_dma_done ; 

call write_io _p or t(interr an t_enable_ register, 

t ransmi t_dma_done ) ; 
call enable_cpu_i nter rupt s ; 

do while ( ropy_ie_regis ter = t ransmi t_dTia_d one ) ; 
end; /* loop until the Interrupt handler 
takes care of the TTr interrupt - 
it sets COPY_II_EEG = rB,4 -/ 

call per f orm_command (load_group_addresses ) ; 

end program_group_add resses ; 



^ V,# vV V 

% #1% i»|-» >1^ ^1% 



end; system device handler and packet processor '••/ 
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5JC 55c 3^5 ^ ^ 5;« Jjc ^1: 5jj :jc 5^: 5}c 3^: 3lc 5{c ^ 3!s sjc s;: a;c 3^^ 5j; 

j;c 3{C 3^ i;< 5|c 3js ^ :{C :<< 3(S 3): 5^ ?;o;s 3;o;i 3;c 3;< :{c 5,^: s;c ?}? >y 5j6 ?;; :{« 5j? j*t 5jc j;c s;c s^c 5j: Jjs 5^c Jj: ^ 5}C J{c 5*c 3j; 3}c 3;c 5^C 5{C 5}c ❖ 

-- ASMR0UT.AS6 FILE «* 

:{;sSe);s}:cj;5 3!tsit5i;3ie5!c«jH5|cj;e:>;3je#*#>!5 5)!}:s5;?5,’;5;s5}!^<s;s5>:}!<n<«5;<5i:::<!{s^ts:c>;t>:<>:5s;o;cj:<««5;«s;o|s4;5;«5ic5:es;o:s>;o;t5;c5i«^ 
« 5|s }{t # ^5 sf; s!« sjs Ji! :{« * ^ }|« j;? y.s :[< 5? j;.' j;j >{J :(t S|J !(C j;{ iff. ^ j;c if s); jjs j{< if i,t if ii ic i< i( if it it i,t sje a:c >;< y.-- it s;< 



extrn til_interrupt_handler : far 

public write_io_port 
public read_io_port 
public write_bar 

public initial i ze_rpu_in ter rup ts 
public enable_cpu_interrupts 
public di sab le_cpu_in terrupts 



wri te_io_por t : 



; Parameter Passing Specification: 

; entry 

1 * parameter 1 <port address> 

; parameter 2 <value to be outputtel> 



dssg 

port_address rb 1 
cs eg 



push hx ! 


push 


si ! push dx ! 


mo V 


s i , 


[bxl 


mo V 


al , 


[si] 


mo V 


port 


_address, al 


mo V 


si , 


2 [ bxl 


mo V 


al , 


[si] 


mo V 


dl. 


po rt _edd res s 


mo V 


dh, 


00 h 


out 


dx , 


al 



pop ax! pop ix! pop si! pop bx 
re t 

j 5;c sic sit s|t s|c s|c s|c s|: s|s s|t s|c sic sic 5|C sic sit sic sic sic sic si: sit sic sic sic si: sic sit sic sicsic sic sic sit sit sic sit sic sic 5|: sic slcs"^ sic sic sit sic S’^ sit sic sic s;- sic sic sic sic >; sic sic 



exit 

<un changed > 
<unc hanged > 
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read_io_port : 



Parameter Passing Specification 

entry 



exit 



parameter 1 
parameter 2 



<port address) 
<meaningless > 



<unchanged> 
<register value) 



push 



mov 

mov 



pop 



cseg 








bx ! 


push sJ 


L ! push 


dx ! push ax 


mo V 


si , 


bx' 






mov 


al, 


!sil 






mov 


■Qort address, 


al 


si , 


2[bx] 








dl, 


port address 




mov 


dh, 00h 






in 


al , dx 






mov 


[sil . 


al 






ax ! 


pop dx ! 


! pop si 


! pop bx ! 


ret 

















'!' 3jS ^ 



write har: 



Parameter Passing Specification 

parameter 1 'and only): the address of ihe data clock 

to he transmitted or received. 



dseg 






e_bar_pcrt 


eq u 


0b9h 


h_bar_por t 


eq u 


0b ah 


l_bar_por t 


eq u 


0bbh 


temp_e_by te 


rb 


1 



temo es rw 1 



cseg 

; This module computes a 24 bit address from a 32 bit 
; address - actually a combination of the ES resister 
; and the IP passed via a parameter list. 

push bx ! push ax! push cx ! push es ! push dx ! push si 



mov dx , 3800h ; shared miemory segment 
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mov 


es , 


dx 


mov 


temp 


_es, es 


mov 


dx , 


es 




mo V 


si, [bx] 




mov 


ax, [si] 




mov 


cl , 12 




shr 


dx , cl 




mov 


temp_e_byte , 


mov 


dx , 


temp_e s 




mov 


cl , 4 




shl 


dx, cl 




add 


ax, dx 




jnc 


no_add 


add_l : 


inc 


t emp_e _by te 


no_add : 


ou t 


l_bar_oort, al 




mo V 


al , ah 




out 


h_bar_port, al 




mov 


al, temp_e_byte 




out 


e_bar_port, al 




pop 


si ! pop dx ! pop 



re t 



pop cx! pop ax 1 



pop bx 



ini tialize_cpu_interrupts : 



; 'Module Interface Soeci fi cation : 

; Caller: i:thertest(?L/I) Procedure 

; Parameters: NONE 

ir.itmodule cseg common 
or? 114h 

int5_offset rw 1 
int5_secment rw 1 

cseg 
push bx 
push ax 

mov bx, offset in terrup t_handler 
m 0 V ax, 0 
push ds 
m 0 d s , ax 
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mov d s : int5_of fs et , bx 
mov bx, cs 

mov d s : int5_s’e,^ment , bx 
pop d s 
po p ax 

poD bx 

sti 

ret 



enable_cpu_i nterrupts : 

; Module Interface Specification: 

; Caller: ilthert es t ( PL/I ) 

J Parameters ; NOME 

sti 

ret 



Procedure 



disable_cpu_interrupt s : 

; Module Irterface Specification: 

1 Caller: Ethertest ( PL/I ) Procedure 

; Parameters : none 

cli 

ret 



interrupt_handler : 



; IP, CS , and flags are already on stack 
; save all other registers 



push ax 

push bx 
push cx 
push dx 
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push si 
push dl 
push bp 
push ds 
push es 

call hl_interrupt_handler 
; restore registers 



hi^h level source 
routine 



pop 


es 


pop 


is 


pop 


bp 


po p 


di 


pop 


si 


pop 


dx 


pop 


cx 


pop 


bx 


pop 


ax 



sti 
i re t 



end 
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APPENDIX D 

Distributed Decision Algorithm 
Source Code 



PA2, PAS, PB2, and PBS, the distributed user processes which implement 
the distributed decision algorithm described in Chapter III, are documented 
herein. Note that the systems file SYSDEF, described in Appendix B, must also 
be available for compilation of each user process. 

Processes PA2 and PAS are linked as described in Appendix A. Their 
associated command files NUM12.CMD and NUM1S.CMD are loaded into local 
memory of SBC §2 and SBC respectively in cluster A at runtime. PB2 and 
PBS produce XUM22.C\ID and NUM2S.CMD which are loaded into the 
memories of cluster B in the same way. 

Processes are loaded when requested under MCORTEX control and 
execution begins and continues until an await state is encountered. Once all 
processes have been loaded, the various await states will be satisfied by advances 
of eventcounts in other processes and operation will continue until all input data 
vectors are processed. 
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/« 
























/# 


PA2 


is resident 


in 


local me 


m 


ory 


of 


SBC 2, 


CLUSTER A. 




/- 
























/=*' 


This 


pr ocedure 


per j 


rorms the 




fol 


1 ow 


ing ope 


ra 


t i ons : 




/- 






















'V 


/* 


1 


. Loads Qualra' 


tic eouat 


i 


on 


par 


ame te rs 


A 


, 3 , C , D • 


=•'/ 


/- 


2 


. Reals sensor 


A ohserv 


a 


t i on V 


ect ors 


fr 


om disk. 


*/ 




3 


. Computes 


LLP 


( LAMBDA 




A X 


) 


for loc 


al 


us e . 




/- 


4 


. Computes 


( LAMBDA A X 




+ L 


AMBDA PP Y 


) 


the 




/« 




sum of the Ic 


3cal and 


r 


emo 


te 


sensor 


LL 


R's. 




/- 


5 


. Compares 


the 


result t 


0 


th 


e d 


ecision 


t 


hreshold 


V/ 


/>:-' 




and displ 


ays 


the fina 


1 


re 


sul 


t and d 


er. 


i s i 0 n . 


-/ 


/* 


6 


. Performs 


steps 2-5 fo 


r 


ea 


ch 


input V 


ec 


tor . 


3;V 


/❖ 




















3;c/ 



/ / 
! ;;r ^ s;c 5;? 5l< ?:c :;c >;s sic 5 :*- ?>: s;: s|c 5}J 5(: 5|j >;< s;? 5|c v Xi s'.J s;c j;*. i}: :;x ;,s :{t y.; y' 

y >? >;c s;c 5;^ :;c s;c y.t ^,c >;c s^s 3 ;s v 5 ;c j;t j;c 5;: 3 ,t sit 3 ,*t s}t s;t :;t s;: 5,^ s;t s;t sic s;; s’^ sic s;c s;c s;c s;t s|c sic s|c s;c s;: s|c : ;: si? s|c / 



PA2: procedure; 




^INCLUDE 'SYSDEF.PLI 
^REPLACE 




PC BY 'SDD0'B4, 


/4 ?3 IS SET TO THIS VALUE -V' 


TRUE 


BY '1'3, 


F»LSE 


BY 


ONE 


BY '0001 'B4; 



D2CLARE 



^ s|c s|c s;c s|c :;c sjc sjc >;c s|c >|c s;: s|c s|c s;c s;t s|s s|c sjc sjc s;c sic sis sic if. if '^c if if if if if if if if :,t s's s^ s|s -c s;c s|c s|s s;c :;s s;s s|c sic sjc s|s s;c s;c s|s ;,c / 



/- 


PARFILE 


contains the FOLLOWING 


PAR “ MFTEF3 




/- 








’V 


/- 


1 . 


M AT^IX/VECTOR DIMENSIO 


'! . 


'•R/ 


/- 


2. 


D DIAGONAL FLEMFNTS OF 


THE MAT. -.IX -A. 


-/ 


/- 


3. 


CCL BY COL ELEMENTS BE 


LOW DIAGONAL OF 


=.-/ 


/- 






MAT'^'IX-.A . 


/ 


/- 


4. 


D ELEMENTS OF VECTOR-? 




-/ 


/- 


5 . 


SCALAR-C. 




■•'i 


/■■;- 


6. 


THRESHOLD . 




V- / 
/ 


/- 








-/ 


/- 


DATFILE 


CONTAINS THE FOLLOWING 


V. A LUES 


■‘'f 


/- 










/- 


1 . 


D-FLEMENT X- VECTORS. 






/- 








'-V 



/ s|s s;c if if if if if if if if if if if if >;c s;s s;s s;c sic sic s;c s;c s|c sic s;c sic :;c sis sic s;c s^c sis sic sic s|c :;s sic s|c sic sic sic s;c s;c s|c sic sic s’s sis s|c s;c s;s >ls s.'s s;c / 

( PARFILT,DAT?ILE) FILE, 

EOF EIT(l) STATIC I '^I T ( FALSE ) , 

(I,J,D,M) FIXEE, 

( A( 52S ) ,?(?2 ) ,C ,T2,X(32) , THR ?S H , L AMEDA_ A _X ) FLOA T . 

K BIT'16) STATIC I N IT ( '0^0C ' B4 ) , 



a rf 



ijf 5*^ sf* *•* **• •>'< *V <»*■* '*■» '»*i» <»V *V «*V **l» »V ^ *>V V'* »*“ »'■» **• **• ’»'■* "Jf *'■» »■'» *’■» V' •*' / 

*T* ^V" ''(* ^ ■•i' *x^ o* 'P 'p ^P 'P 'P 'P ^P 'p 'p ^p o* 'P *V‘ *P *p ^P ^P *p 'P ^P 'P 'P '*1' 'P ■'P ■'p *P ^P ^P *T* 'p 'p n* *p 'P / 

/ ^ ^ / 

/* P3 SET TO PC TO BE ADDED TO SEGMENT ADDF 0B00 ’’•V 

/❖ «/ 

/ %JU «JU %V V# V^ ^V ^V «V / 

^ 1 % ^ 1 ^ ^ 1 ^ ^ 1 % ^ 1 % ^ ^ 1 % # 1 ^ 7 |% ^ 1 % #|« <P|% ^ 1 % # 1 % ^ 1 ^ ^ 1 % ^ 1 % ^ 1 % / 



P3 POINTER, 



-T» -r* -n** 



sji 5|i 3|C 5jc ^|c jji 5jC 5p 5jS jJC 2{C !^||c ^C)JC JjC JgC 5|^ 5^ 5^% i|C ?^C J|C 5|i jjc 5|C 2j|c 7 ^ jJC jJj 7 ^^ 5|> ?|S ?jc 5|C S|% 3|C 



/5p3p 

/^ 

/* BASE LAMBDA_B?_Y AT P3 = PC (OFFSET ADD TO D^T.^ 
/- SEGMENT = 0800 ) 

/« 

/ v^ >o ^ V'* ^v *A* »A» »*■» ^•*’ *v «i'* ^*'» ^ ■» »v **• V'* y ^ y^ yy yy «*■* yy y< y» ^ 

/ ^ ^ pp 'p'^ 'p »p ^ 'p <^' ^ 'p^*^ ^ *P n'^p ^?p ^ ^ ^ <p oi* ^ ^ 'p ^p ^ O'* "t* O' o* O' O' O' ■'p 'p O' *\ 

LAM3DA_BP_Y FLOAT BASSD(?3); 

/- SET BOINTEFS TO VALUES INDICATED IN REPLACE .MOVE 
UNSPEC(P3) = pc; 



/ 

/- 

/- 

/- 

/* 

/=:« 

/V 

/=•' 

/■f 

/"' 

/- 

/* 

/-■?■ 

/■■' 

/’••= 

/* 

/- 

y/ ;,5 5p5jc 



%w »w %v ^ y y» y^ y^ y^ y^ y^ y«^yi? y^ \v ^ y^ y^ y^ y^ y^ y^ y^ y> ^ y^ y^ y^ y^ '►v > 

#!<« #|S» # 1 % ^ 1 % # 1 ^ ^ 1 % # 1 % > 1 ^ ^ 1 % ^ 1 % # 



INPUT PARAMETERS FROM DISK FILE 
MATRIX i VECTOR DIMENSION (D = INTEGER} 
CALCULATE N = ii OF MATRIX ELEMENTS TO INPUT 
MATRIX-A (SYMMETRIC) 



M = D ) 

{f* = N-D) 



DIAGONAL ELEMENTS FIi'.ST 
COLUMNS BELOW DIAGONAL .NEXT 

VECTCR-E (D ELEMENTS) 

SCALAR-C (1 NUMBER) 

THRESHOLD (1 NUMBER) 

-^1^ -nr *r ■'•' --r 'r nr ■'i'* ■•r n- -nr ^ ^ V *'r -r --r ^ n*- ^ nr '*' ^r nr V -n' -r n** -r -r^ -'*'* --r -%' • 

OPEN FILE (PAPFILE ) STREAM INPUT; 

GFT FILE(?iR7ILE) LIST (D); 

•N = ((D - D)+D)/2; 

DO 1=1 TO n; 

GIT FILE(?ARFILE) LIST ^A(D); 



V 

/ 

’ / 
-/ 
-/ 
^v 
* ! 



>;c/ 



-/ 

-V 

’M/ 

^V 

-/ 

'•V 

V/ 

=:■-/ 

'•'■/ 
if- / 

iff 

iff 

iff 

iff 

iff 

iff 

iff 

-/ 

fif/ 
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DO 1=1 TO d; 

SET EILE(PARFILE) LIST (B(I)); 

end; 



SET FILE(PARFILE) LIST (C, THRESH); 

PUT SKI? LIST ('dimension =' ,D , 'THRESHOLD =', THRESH); 



/ fcV «v Vf Vi v«> vu Vf vu ««v v<>> ^ vu ^ o»> slu «x* «x» vu y* «x» vu ^ v» v* y»> %•< y» v# <.i« / 

/ ^ nr* «ir n* •TT 'r ^ «Tn •TT 'I** ^ nr' ^ nr ^ ^ 'f* ^ *Tr n' ^ ^ •*r -n *T* 'T‘ ^ *in 'I' ^ *1' ^ --I* ^ / 

/ v^ V* / 

'•'/ 

/- INPUT 4ND PROCESS X-VECTCRS -V 

/ V- »l- / 

n-/ 

ot^ «’# %V / 

^4^ ^ 4 ^ ^|S ^ 1 % # 4 ^ ^ 1 % # 1 % ^ 1 % 4^jS # 1 % ^ 1 % ^1^ ^4^ ^ 1 ^ # 1 % ^1% ^ 1 % ^ 1 % > 1 % ^1% #|« ^ 1 % ^ 1 % ^ 1 % ^ 1 ^ ^ ^ 4 % ^1% # 4 « / 



ON ENDFILE(DiTFILE) EOF = TRUE; 
OPEN FILE(DATFILE) STREAM INPUT; 

DO IaHILE'ECF = FALSE); 

K = 1DD2BIT16(K,0NE); 



PUT SKI?(2); 

DC 1=1 TO d; 

OFT FILE(D«TFILE) LIST (X(I)); 

PUT SKIP LIST('X (M,') ='.X'D); 

end; 



/- C.iLC LAMBDA_4_X = ( X-T?-'' NS )- ( “ _ TR IX ) - ( X ) -/ 

LAMRDA_A_X = 0; 

DC J=1 TO D-i; 

DO I=J+1 TO d; 

LAM3DA_A_X = LAM5DA_A._X A ( I + J^l ) -'X ( I ) -X ' J ) ) ; 

end; 

end; 



T2 = 0; 

DC 1=1 TO d; 

T2 = T2 - ( A(I )'-i‘X(I )-X(I ) ) ; 

end; 

LAMr-DA_A_X = ( 2-LAMEDA_A_X ) + T2 ; 

/- ADD L‘'M?DA._i_y TO ( B-VECTOR ) - ( X ) & STORE 
DC 1=1 TO D ; 

LAM3DA_a/x = LAMBDA_A_X + ( 3(1) - X :' I ) ) ; 

end; 



/- ADD LAM?DA_A_X TO C S STORE IN LAM?DA._A_X -/ 

LAMBDA. A X = LAMBDA AX + C; 
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;}c ^:;c s^tsJssjcjcs^s^c^lssSssJc 3^s;s5;s3;;>^:;c5;«^C5;c:;s:;s>;s5;? 3*s?*^5;c5|S3;ij;c:;t:;£>I<5;:5;s 5|:5;c;Jt ^ 

/-ij -a-/ 

/- AWAIT LAMBIA EP Y CALCULATED IN THE OTHER CLUSTER -/ 

«/ 

/ »'» »'* »'•» 'V »>'* ••V **' yw «'« %*^ «.*» %•# ^.o >V m)t »•# ^‘f / 

*1' ^r* ^r* 'i”“ 'll* *1* "I' *(' o' O' O' ^i' o^ o^ 'i' o' 'p o' 'p o* 'P hp O' o' ^p 'p o' O' o' o' o' O' o' o' op op O' "i' o' 'p O' 'p 'p o' / 



CALL AWAIT(31EVC,K); 

PUT SKIP(2) LIST ( 'LAM3DA_A_X 
PUT SKIP LIST ('LAMEDA EP Y 



=',LAK?DA_A_X ); 
=',LAMEDA E? Y); 



75 ^: 3 ;? 3;c 


V# 

^1^ #1% #1% ^1% «i|4 


%*# *^V Of* %*«* v< 

#P ^1^ #1% #1^ ^1% #1^ #1% «*|% <1^ ^1% #1% ^1 


P V# W4T / 


/^< 






’^V 


/- 


ADD THE LAMBDA 3? Y 


VALUE RECEIVED FROM 


'•V 


/- 


TEE OTHER CLUSTER VI 


A THE ETHERNET TO 




/- 


THE LAMBDA A X VALUE 


C'^LCULATSD IN THIS 


'-V 


/* 


CLUSTER, AND COMPARE 


TO THE THRESHOLD. 


'•V 


/■^ 






=v 


/ *JU *•* 
/ <,% 


%'^ ^ %A«» ^ «JU ^1^ 

^4^ ^1% #1% 


^u %v 

>1^ >1% 


' ^ O' ^ 



T2 = LA'1'°rA_A_X + LAMBDA_3P_Y; 

IF (T2 > THRESH) THEN DO? 

PUT SKIP LIST ('RESULT =',T2,'IS > THRESHOLD '); 



end; 

ELSE do; 

PUT SKI? LIST ( 'DESULT 

end; 



=',T2,'IS < THRESHOLI '); 



DO 1=0 TO 1000; 

DO J=0 TO 500 ; /=«' DELAY LOO? ’V 

end; 

end; 

V*# k'# %*# V<f 

>1^ #1^ #1^ ^i' ^1% ^1% ^1% ^|« #1% ^ |> #1^ #1^ #1% ^1% ^1% #1% 

/- 

/- NCTIFY HOARD 3 TO CONTINUE WITH NEXT INPUT VECTO- -/ 

/ -■' ••' / 

' ^*0 %V ^ 

^1^ tf 1^ y 



‘ / 



5,C ',» « 



^ S'? :;s :;c ;;? 5|< 3|5 s;« s;? sj; 3^ 3 ;? 3 ;: 3*^ 3;j 3.C 3 ;? 3 ;? 3 ;? :;« s;c 5|c :;s 3 ;? ;;« 5 ;: 3',: 3’i s|? 3 ;? 3^ 3jc 31? 3jt 

CALL ADVANCE( A2EVC ) ; 

end; /- E'-'D OF DC WHILE (EO? = FALSE) LOO? -/ 

PUT SKI?(3) LISK'END of INPUT DATA'); 

END PA 2 ; 
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! s;? 5;j ;|: 5|J i,<L i,t ^ ?;? 5|C tt 'if. if if if ifif if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if ?!c ^.c ^ 



/’’•' 














*/ 


/- 


?A3 


is residen 


t in local 


. me 


mory of 


SEC 3, CLUSTER A, 


. -/ 


/* 














*/ 


/- 


This 


procedure 


performs 


the 


followi 


ng operations : 




/- 












*/ 


/j:« 


1 


. Loads Quadratic ec 


luat 


ion parameters A,E,C,D. 


-/ 


/’^ 


2 


. P.eads se 


nsor A ohs 


ie rv 


ation ve 


ctcrs from disk. 


-/ 


/* 


3 


. Coftputes 


the Conditio 


nal LLR 


! LAM3DA AP X ) 


*/ 


/- 




to send 


to sensor 


3 f 


or further computation. 




/* 


4 


. Submits 


a reouest 


i nt 


0 the ERR queue to send 


if/ 


/■' 




the CLLR 


statistic 


: to 


sensor 


3. 


if/ 


/if 


5 


. Advances 


eventcount AIEVC to 


signal sensor 3 


if/ 


/- 




that its 


awaited s 


, tat 


i s ti c is 


available . 


if/ 


/■' 














if/ 



! 5;: ?;t ifif if if if if if if 5 |r s;t if if if if if if if ?;c 5 ^. 5 |i jjc if if if if :;c if if if if if :;c :;c j): :;c ;;c j|c 5.1 / 

^ if if ?*: :.<? if : J« ?;s if if ;|5 if 5;- ;;t 5;- ?|c j|c 5 }c :Jc :*c ^ 5 js s^: a^: ^ if if >:t if 5 ;c j.c a;c a;t y.c ajc ajt 5.: 

?A3: procedure; 

%I\'CLUDE 'SYSDZF.PLI '; 

^REPLACE 



PA 3Y '90O0'34, 


/- ?1 IS SET TO 


THIS 


VALUE 


if/ 


P3 3Y '9CC?'B4, 


?2 IS SET TO 


THIS 


V»LUF 


if/ 


ER^ PLOCiC LENC-T^ 


FY 2'^,/- USED 


TO GCNTRCL 


-/ 


EK? 3I0CX LENGTH 


3Y 19,/- Ei3 


SIZE 




-V 


TRUE 


BY 'I'B, 








FALSE 


BY '0'?, 








ONE 


EY '0001 ' 34 ; 









DECL®^E 

/ ;;; :;s :(5 jJc * :;« y.c V Jr >!- v 5 r =l< 5 |: >!« i;s ❖ Jr Sr >!« Sr =>: sjs 5 |« Sr << JlJ Jr j;< Jr Jr Jr Jr Jr Jr j;« Jr Jr »r / 



/if 


PA RAF I L 


E CONTAINS THE FOLLOWING PARA.EFTERS 


if/ 


/if 






if/ 


/if 


1 . 


^atRI X/VFCTOR DI^IZNSIOV. 


J.V 


/if 


2. 


D diagonal ELZr^FNTS OF THE MATHIX-AP. 


if/ 


/if 


3. 


COL BY COL FLFf^FNTS BELOW DIAGONAL OF 


if/ 


/if 




^ATRIX-AP. 


if/ 


/if 


4 . 


D ELE'^ENTS OF VECTC--3?. 


if/ 


/if 


5. 


SCALAR-CP. 


if / 


/if 






if/ 


/if 


DATA FI L 


E CONTAINS THE FOLLOWING VALUES 


if/ 


/if 






if/ 


/if 


1 . 


D-FLF'^FNT X-VECTOPS. 


if/ 


/if 






if/ 



y -s ^ y; s’; y,j * i,j >;« i'f y,« 5;-, 5? s;; >;« if y.s y,; if ;;s 3;; ififi^mc s;c if if j;: ^ : y.t J',s if s|s 5;< !|: if if ;;s if if if ;;; y^ :j; y.; ;;s / 

( Pi^R “FILE.DATSEri.E) FILE, 

EOF ^IT(l) STATIC I \'I T ( FALSE ) . 
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(I,J,D,N) FIXED, 

( AP(52S) ,B?(32),CP,T1,X(32)) FLOAT, 



/'•' 

/•-- 

/- 

/* 

/- 

/* 

/* 

/- 






> O0 «•« « 



■ 0« ■,>» ^ 

> i 



I' 'r 



i' 'v* 'r* » 






INDEX VARIABLES AND CONSTANTS USED F0?. 

INDEXING IN THE ERB (ERB_INDEX) 
SEQUENCING & CONTROL( II,JJ,X ) 
IDENTIFYING DATA TRANSFER (DATA_TYPE ) 
IDENTIFYING OPPOSITE CLUSTER ADDRESS 



^ 



Sp SjC ^^C5jC Jp 5p S sJC ?■' 5li 'r ^ 'r ^ 'c 



=;c/ 

*/ 

«/ 
>:V 
V / 

«> «■# >JU / 
'1' 'i' 'I* / 



ERB INDEX 

( ii7jj) 

K 

DATA_TYPE 
CLUSTER ADDRESS 



FIXED, 
BIT (16) 
BIT (16 ) 
BIT (8) 
BIT (15) 



STATIC 

STATIC 

STiTIC 



INIT( '000^^ '34) , 
INIT( '01'B4) . 
INIT( '0002 'P4J , 



POINTERS ARE USED IN THE FOLLOWING (BANNER 



^ 5*5 3J5 5*5 j'C 5(5 ^*5 3*5 3*5 5*5 3*5 3*5 3*5 3(5 3*5 3*5 3*5 **5 3(5 5*5 3*5 3j5 3*5 5|c 3(5 3*5 3*53(5 3*5 5*5 3(5 5*5 5(5 3(5 5*5 3*5 3*j5 5*5 3(5 3(5 3(5 5*5 3*5 3*5 5(5 5*5 3*5 3*5 5*5 3(5 3*5 3'5 3*5 3*5 3*5 ^ 

/- 

/- 

/- 
/ 

f 'I' 

/■•' 

/- 



5 ;: / 

t 

■-V 

PI SET TO PA TO BE ADDED TO SEGN^ENT i?800 -/ 

P2 SET TO PB TO BE ADDED TO SEGMENT ADDR 0300 / 

=;:/ 



^0 ^*0 ^^0 ^0 V# ^^0 ^0 ^*0 ^0 W# %W %*0 ^0 U0^Ji0 ^*0 Ibl# ^ 

^p #p #p ^p 0^^ #p #p ^p ♦p #p #p #p ^1% ^p #p #p ^p ^p #p<»p #p 0 



5 3, *5 y* 



(?1,?2) POINTT.R, . 



/- 

'/^' 

/■■' 

/=? 

/* 

/•.:-' 

/*" 

/- 









^^0 ' 

* % <p ^p ^p ^p -»'p ^p . 






3 ^0 ^^0 ^,^0 %.'^0 ^0 ^*0 h'# ^*0 %^0 ^ 

p ^p ^p #p 0 ^'*■ #p ^p ^p «^p ^ #p 



THE ETHERNET REQUEST BLOCK (ErE) 
ETFZPNET REQUEST PACKET (ER?) STRUCTURE 
IS USED IN TH^ ECLLOV/ING MANNER 



COM^^'AND = 1 

TYPE 

VALUE 



FOR DATA TRANSFS'^ OVER E-NET 
(NOT USED BY THIS PROCEDURE) 
(NOT USED BY THIS PROCEDUKE) 



REMOTE A-D’^R = CLUSTER ‘•DDFESS 07 DESTINATION 



^ O0 



• »<. 



-/ 

/ 

'■7 

-■/ 

-/ 

-'7 

■■=/ 

-/ 

-•7 

V/ 

^7 
❖ / 



1 EP’ ( 0 : ERB_BLOCK_LENGTH_Mil ) 
2 CO^M.^ND BIT(e), 

2 TYPE BIT: 3), 

2 VALUE BIT(IB). 

2 REMOTE_ADDR BIT(16) , 



^ASED (PI), 
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y 5;s^ ^ 5}:5js ?Jc 5|«5j: sjss^s 2|C2^ :;c5j«5t:?{s;t:3^5js2;c2;s5;s5j::;i5;?>jc?js3ts5;c5js5}:5;:5j5 

/ o- 

... 

/- BASE LAMBDA _“P_X AT P2 = PB (OEESET ADD TO DATA 

SEGMENT = 0S00 ) 

^ 5{c SJn 5|» JJC 3}! 5{C SjC 5}» 5j? 5{f jJS ?J? ?{C 3|C 5|S 5{4 5{i SjC Sj? jJC #JC 5j% 5|C 2j% 2{C 5j> 5jC 5j* 2}c #|C 3^ 5jC 3|C 5j« 5^ JjS 2jC j|S 3^ 3|C 3{S 3j? 



.Jk.. / 

y,c 3 ;i / 



LAMEDA_AP_X ELOAT EASED(P2); 

/'- SET POINTE’^S TO VALUES INDICATED IN REPLACE ABOVE "V 
UNSPEC(pi) = pa; 

UNSPEC(P2) = pe; 



%V 

^|W ^jV r|S ^| 

/« 

/- INPUT PARAMETERS PROM DISK FILE 

/- 
/- 

/- 
/':'■ 

/■'' 

/- 
Z^- 
/- 
/^' 

/'^ 

/- 
/-' 

/- 
^ ' 1 ' 



MATRIX S VECTOR DIMENSION (D = INTEGER) 
CALCULATE N = OF MATRIX ELEMENTS TO INPUT 
MATRIX-A? (SYMMETRIC) 



DIAGONAL ELEMENTS FIRST 
COLUMNS B^LOW DIAGONAL NEXT 



{» = D) 

(# = N-I) 



VFCTOR-EP (D ELEMENTS) 

SCAL'P-C? (1 NUMBER) 

» 5^ ^ 4 ^ ?|C ?{c 5jC 5jC # 1 ^ 3 % 54 C #|C 3p J 



0 ^ 



^4% • 



#1% 2|^ 5^C ^ 

>:</ 

>v 

='■' / 
’“7 

^;V 
^ / 

'‘•V 

■-7 

-7 

=:-/ 

'■'-/ 

V/ 

''' / 
'V 

» V 5 '^ .*j 5 ' ^ 



OPEN FILE(PA? iFILE) STREAM INPUT; 
GET FILE(?ARAFILE) LIST 'D); 



N = ( D - D)+D)/2; 

DO 1=1 TO n; 

GET FIL.F(PARAFILE) LIST (AP(I)); 

end; 

DO 1=1 TO d; 

GET FILE (PARA FILE) LIST ( B? ( I ) ) ; 

end; 

GET FILE{?ARAFILE) LIST (CP): 

PUT SKI? LIST '('DIMENSION =',D); 
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'I' / 

/* IMPUT A.NP PROCESS X-VECTCRS -/ 

/'^ ❖ / 

/ %V V' >i«» fcV %l^ viu %l# %v / 

>1% 0^ ^1% #J^ ^1% <1^ #1^ ^1% ^1% ^1% #^% ^4% ^1% ^J% / 



OM ENDFILE(D.4T4FILE) EOF = T?UE; 

OPEN FILE(D.ATAFILE) STREAM INPUT; 

DO VHILE(E0F = FALSE); 

CALL A'«AIT(A2EVC,K) ; 

PUT SKIP (2); 

DO 1=1 TO d; 

OET FILE(DATAFILE) LIST (X(I)); 

PUT SKI? LIST( 'X (M,') ='.x(D); 



end; 

STORE 'X-TRAMS )-(AP-^’»TRIX)-(X) IN LAMEDA_A?_X '-/ 

LAMBDA_AP_X = O; 

DO J=1 TO D-l; 

DC I=J+1 TO d; 

LAM3DA_A?_X = LAMBDA_AP_X+(A?(I+J+1)*X(I)-X(J) ): 

end; 

end; 

T1 = ?', 



DO 1=1 TO d; 

T1 = T1 + (AP(I )*X( I )-X( I) ) ; 

end; 

LAMpt)a_AP_X = ( 2"=LAM'=DA_A?_X ) Ti; 

/■-' ADD LAM?DA_A?_X TO ( 3P-VECT0R )-( X ) E STORE / 

DC 1=1 TO d; 

LAM3DA_A?_X = LAM3DA_AP_X + (S?(I) - X ; I ) ) ; 

fnd; 

/- ADD IAM3DA_AP_X TO CP E STORE IN LA^'3DA_A?_X ’V 

LA!^?DA ^P X = LAMBDA AP X + CP; 
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/ Ou «JU «pfU «A# «JU *X^ V^ *v^ %;i^ «A#«A# «A# V^ «JU «pl^ «A# ^u «A# «A# «JU V# *kV %A^ «V «A# «J> V^ «A«* OU / 

^|W y|« #1% >1^ #1% ^1^ #1% #|i» #1^ #1% «p|^ 4^ ^1^ #1% #|^^|% #1% «>|^ ^p #p #p #p #p #p >p #p #p ^p ^p #p ^p #p ^p / 

/a# ’^'^ / 

/'•' '• / 



/- 

/=^ 



^ET A TICKET TO ENABLE A WHITE TO TEE E=3 



^ / 
/ 

-/ 



/ «4U <UU «Jk^ 0^ %V %^# Oi« *>Jt^ %i^ ^4^ %i# %*# %i^ %*<» %V / 

^P ^1% ,«»|^ #p ^p «»|-^ #p ^1% 4*p #1^ ^1% j|^ #p 4^ ^p ^p #p #p ^p *p ^p <qp ^p ^p ^p ^1% ^4k#p ^P ^p >1% ^p ^P ^p #p ^p #p #p ^p ^p / 

II = TICKET(ERB_WRITE_PE0UEST) ; 

/- II NOW HAS THE VALUE OF THE TICKET RETURNED -^' / 

JJ = READ(ERB_WRITE) ; 

/- JJ NOW HAS THE VALUE OF ERB_WRITE =V 

DO WHILE( JJ < II ) ; 

JJ = RSAD(ERS_WRITE) ; 

end; 

./- IF ETHERNET REQUEST BLOCK (ERB) IS FULL-BUSY W^IT -^ / 
JJ = READ(ERE_REA.D); 

DO WHILE((II - JJ) >= ERB_BLnCK_LENC-TH ); 

JJ = READ( ERB_READ ) ; 

end; 

/ %W ^0 ^0 ^U V^ «JU V'' «pl# «JU «A# ^ %}^ / 

>p ^p ^p ^p ^p ^p >p ^p ^p ^p ^p ^p>|H ^p ^p ^p ^p ^p^ip #p ^p #p >p ^p ^p #1% ^p ^p ^p ^p ^p ^p ✓!% ^p ^p ^p #p ^p #p / 

/- -/ 

/•!' WRITE TO ER.3 WHEN A SLOT IS OPEN -/ 

/':- CO'N^^AMD = 1 FOR DATA TO 3S TRANSFFRED =V 

/- P.E;^,0TE_ADD= - DESTINATION CLUSTER ADDRESS -V 

/s;« 5.5 / 

^ # O# sV H V ^ « %4 # %JU» ^^0 V^ ^A# ^ %V ^A# V^ W / 

-^p ^p #p «ip #p r|-« .pp ^p #p ^p ^p ^ -nr ^ O' <^ 1 ' ^ 1 ' O' ^c or o'O' or *^c nr n' or ^ o' or '^r O' v '^i' or -•i' o' o' o' or ^r or o' or / 



ERR_INDEX = r^CD( 1 1 ,ERR_5L0CK_LENGTH ) ; 
EF3'EP.B_INDEX) .command = DATA_TYPE; 

ERE'ER^ INDEX ) .REMOTE ADDR - GLUSTER_ADDRESS ; 



/ %V v>*# V# %>44 ^0 ^*0 %v «iAi* 4fel#«A^ v^ ^0 ^0 > # V# «-0 %A^ «iA^ %V %V vA# *.li# *1^ ^4> %<# sU / 

O' O' O' O' Op O' ^4' o^ ^r O' o' o§^ O' o' Oi^ or o' ^i' ^r op ^por or or op op #p ^p ^p #p or op O' o' op or o' or or op ^p or or op ^p o^ o' ^p op / 

/« =^/ 

/❖ NOTIFY i^CORTEX THAT ERP WRITE IS COMPLETE -/ 

/=^- >;=/ 

vl« ^^0 %*# %V >*« «'•* ^*0 vl# / 

•"P ^p ^p ^p ^p #p O' ^i' ^#' Op ^p ^p ^p ^p i^p #, ^p ^p #p «p #p O' ^p op O' ^*' ^r ^*' O' op ^4^ ^p n' •»' o* o*^ O' O' ^i' O' ^i' 0|^ ^p ^r ^p o' ^i' ^r ^*' o' op / 



CJLL «DViNCE(ERE WRITE); 



6S 



s|s:{cs;s5}t s;c5|s:{c5j?a;c S{«:5^>;t5^5;t3;c5;c5;c:jc5;r3;s5;^ slssjcsjcilsilsslcaltjlcjlciicslislcjltsls^j ^ 



/- 

/* 

/% 

/* 

/* 

/« 

/- 

/* 

/* 

/- 

/« 

/- 

/❖ 

/^.s;t: 



AN 

IN THE 

SIGNAL 

TEE DAT 

ADDRESS 

ADDRESS 

ALSO IN 

THE REC 

ADDRESS 

ADDRESS 

COMMON 



ETHERNET RECUEST PACKET (ERP) IS NOW SETUP 
ETHERNET REQUEST BLOCK ' ERB ) . THIS WILL 
THE DRIVER PROCEDURE ON BOARD 1 TO FETCH 
A STORED IN COMMON MEMORY (L 4M3DA_ AP_X ) AT 
0S00;8CC0-0S0O:BCC3 & MOVE IT TO 
0500:80DA-0800 :80DD ( TRANSMI T_DATA_3L0CK ) 
CO'^MON MEMORY TO BE PACKETIZED AND SENT TO 
EIVE_DATA_BLOCK (RDB) OE THE OTHER CLUSTER 
0S00:367C-0800:867F WHERE IT IS MOVED TO 
0800:8DD0-0S00-SDD3 IN TEE OTHER CLUSTERS 
MEMORY (LAMBDA AP X). 



.;V 

*/ 

if./ 

if/ 
if/ 
if/ 
if / 
if/ 
if/ 
if/ 
if/ 
if/ 
if/ 

m ^0 / 

^ / 



/ % * H*# V# vV «>V O# «Ji# ^ ^ V# ^ / 

#1% ^1% ^1% ^1% ^1^ ^1^ >1^ #p #p #p / 

/if if/ 

/if NOTIFY OTHER CLUSTER THAT DATA IS RS»DY -/ 

/if if / 

/ ^v o# * *< i 

-»P -»p ^p >P ^p <pp ^p ^j- jp #p ^p * <*p ^p ^p ^p ^p ^p ^p^p ^1^ ^p ^p ^p ^p ^p ^p ^p «»p ^1 » ^p ^p ^p ^p ^p ^p ^p ^p ^p ^p ^p ^p / 

CALL 4DVANCE( AIEVC) ; 

K = ADD2BIT16(K ,0NE) ; 



end; /- END CE DC WHILE (EOF = FALSE) LOO? -/ 

PUT SKIP(3) LIST('FND OF INPUT DATA'); 



END ?A3; 



/ o«l 

/ •t' > 1 ' •nt' 


Of# O# O# O# 0« 
> >p ^p rp ^p ^p 


o« ou o« ou ou o# 

#p #,% #p ^p #p 




%«# 

^p #p 


jjc s;s y^ j;< ?|c ?;« 3j; 5(t 3^; 


V* »•«» 

op 


n«?;5 


si# o# s*^ O^ 

^p ?p ^ ^ ^ 


o# J*C 5*C 5p ?*% #*C 2*C 


',|s!;c / 


/ >Jc Jjc 5p 3j; 


5*C ?*t ^|C #p 


O^ O# 4*V o# % ^ o# 

^p #p ^p ^p ^p 


o# o# % 

^p ^ # 


;-5|« 


0.0^ 


0*0# O^ O^ O^ %•# 0^0^ Oi^ 

#p «p ^ Jp #p ^p 4»p<»p #p 


»'o Oo %«o «Jo «lo 
Jp op op op op 




j;c3;c5:«>;s5;c:;c>i:5;c 


#p #*C 5*€ 


if 5^- / 


/- 
























/if 


?32 i 


s resid 


en1 


t 


in 


local mem 


ory 0 


X 


SBC 2, C 


LUSTER 3. 


■f/ 


/if. 






















if/ 


/if 


This 


procedure 


P 


er 


forms the 


f 0 1 1 ow i 


Ti^ opera 


tions : 


-/ 


/if 






















if i 


/if 


1 . 


Loads 


c uad 


r a 


tic eauati 


on pa 


rameters A 


, 5 , C , D . 


if'/ 


/if 


2. 


Read s 


sei 


15 


or 


3 otserva 


t ion 


V e 


ctors fr 


om dis.-c. 


if / 


/- 


3 . 


Ccnp-it 


es 


u 


L? 


( LAMBDA 


B Y ) 


f 


or local 


use . 


if/ 


/if 


4. 


Co-nput 


es 


( 


L 


AMBDA_B_Y 


-»• LAMBD 


A_A?_X ) 


the 


if/ 


/if 




sum of 


the 


1 


ocal and r 


emo te 


s 


ensor LL 


R 's . 


if/ 


/if 


5 . 


C ompar 


es 


t 


he 


result to 


the 


de 


ci si on t 


hreshold 


if/ 


/if 




and di 


s pla 


ys 


the final 


resu 


It 


and dec 


i si on . 


if/ 


/if 


6. 


Performs 


S 


te 


ps 2-5 for 


each 


i 


nput vec 


tor. 


if/ 
























if/ 


. . 




O# %<# 

^ ^p #p ^p #^p #p 


y* yt 5 


I- 'r 


' * 'I- 


>;< s^c d^i sjs 




o^ %y 

#P 


5|t:;c3;c3;t :j?3;c5;i3;? 


^•o «'o s*o »«o •V ^o Oo »'o »<o 

^ op op op o^ op op op op 


op op / 


/ ?;? y.j 3;c 


O# V'O- V' 




v» *!» » 

•<' V ^ 


%v 

I' '1' 




5'^ 5|: dfi 3j« i\i >;c 


3;s ?;c y.c d,: 5|i 


SjrXi 


i;c j;c Jp 3lt ?p ?p Jp 


op yCop o*» o*» di 3*C ''j o'i 
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PB2: PROCEDUEE; 



%INCLUDE 'SYSDEF.PLI 
%REPLACE 



PC BY 'BDD0'B4, 


/* 


P3 IS SET 


TRUE 


BY 


'I'B, 


FALSE 


BY 


'0"B, 


ONE 


BY 


'200l'B4 



DECLARE 

/ %*« JU «IU V' *V 

•>,% »r* O'* •n'* o* 'I- O'* 

/» 

/- 
/* 

/❖ 

/❖ 

/❖ 

/ «.o 
/'*' 

/❖ 

/- 

/- 

/* 

/* 

/* 

/* 

/ «•» « 



/ 

>1^ ^1% #1% ^1% #|%^|% #1% ^1% ^1% #1% >1^ ^1% / 

PAP.EILE CONTAINS TEE FOLLOWING PARAMETERS */ 

-/ 
-/ 
-/ 

'"/ 



1. MATRIX/VECTOR DIMENSION. 

2. D DIAGONAL ELEMENTS OF THE MATRIX-A. 

3. COL PY COL ELEMENTS PELOW DIAGONAL OF 

MATRIX-A. 

4. D ELEMENTS OF VECTOE-B . 

SCALAR-C. 

THRESHOLD. 



O • 

6 . 



DATFILE CONTAINS THE FOLLOWING VALUES 
1. D-ELEMENT Y-VECTCRS . 

0 OU OU %l« «V % 

^ #|« #*|H ^1% ^1% #1^ >1% ^1% ^1% ^1% >1% >1^ ^1% ^ ^ ^ ^ . 



>:--/ 

-/ 

-v/ 

V/ 

=:=/ 

-/ 

V/ 

--«/ 



( P4RFILE,D "TFILE) FILE, 

EOF BIT(l) STATIC INIT(FALSE). 

(I,J,D,N) FIXED, 

(A(52B) ,S(32),C ,T2.Y(32) ,THRESE,LAMBDA_E_Y) FLOAT, 

K PIT(16) STATIC INIT ( '00^O'P4) , 

v*i* w %V %v OU «JU V^ ^ / 

'4^ ^1% ^1^ >1^ ^1% ^1% ^1% ^1% #1^ ^1% #1% ^1^ ^1^ #1^ #1% >1% ^1% ^1^ ^1^ >1^ ^1% >|« #1% ^1% ^|0 ^1% / 

/sf: '.• / 

/- ?3 SET TO PC TO PE ADDED TO SEGMENT ADD?. dP^^d -/ 

/* */ 

v-« v^ V* y^ y^ y^%v y« ^v %*^ %'^ %■# %•# / 

^1^ >1^ #1^ «T|W ^1% ^'*» ^1% >1% 4^1^ ^1% ^1% -^% #|(% >1% #1% #1^ #1% #1% / 

P3 POINTER, 

y# y<^ y« y^ %»« y«^ y > y# %i«p y^ y^ %^# %i^ y^ %<«# y^ %i^ y^ y# y^ y^ %*# %v y^ y^ y<# y# %<•# >*,# / 

#1% ^1^ '•,% #1% ir^n #,% ^1% ^1^ <*|^ ^|S. -■,% ^1% *»',% ^1% ’• >1^ ^1%#!^ #1% #1^ ✓!% ^1% #1'% ^1% #1% #1^ #1% ^1^ / 

/'•' ’^V 

/- EASE IAMEDA_A?_X AT P3 = PC (OFFSET ADD TO D^T' -/ 

/- SEGMENT = 2800 ) -/ 

/o*' ^/ 

/ 'V y^ y*“ y^ y^ y# y^ y^ y^ %v y< y«# %o y^ % v %v y< yi# y^ y-» %y y^ >v y^ y^ y^ y^ y^ y^ y^ y^ >v^ y^ y^ y^ y^ / 

/ ^ #1% «|% ^1% >!’» «p|^ #|i* #1^ ^1% ^|« ^4% / 

LAMBDA_A?_X FLOAT 3ASEE(P3); 

/- SET POINTERS TO VUUES INDICATED IN REPLACE A^OVE -/ 
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UNSP2C(P3) = PC; 



v*^ %*# %V V^ «V «U U> «JU «JL» «>V V' / 

#1^ ^1^ ^p ^p ^p ^p #p #p ^p ^p «p #p «p ^p #p >1% ^p ^p #p ^p ^p #p #p #p #p ^p ^p #p #p / 



INPUT PARAf^ETERS FROM DISK FILE 
MATRIX S VECTOR DIMENSION (D = INTECER) 
CALCULATE N = # OF MATRIX ELEMENTS TO INPUT 
MATRIX-A (SYMMETRIC) 



/V- 

/* 

/^ 

/* 

/❖ 

/- 
/« 

/* 

/* 

/« 

/- 
/- 
/- 

/* 

/ o« 

•" 

/5>> 

/- 

/^ 

/ ^ Vi Vf Vf ^v yy ^ 

^P ^p ^p >p «p >p ^p ^p ^p ^p #p #p #p ^p ^p #^% ^p ^p ^p #p #p # 



DIAGONAL ELEMENTS FIRST 
COLUMNS BELOW DIAGONAL NEXT 

VECTOR-E (D ELEMENTS) 

SCALAR-C (1 NUMBER) 

THRESHOLD (1 NUMBER) 



(# = r) 

(# = N-D) 



'r 'i' ^ V'l' ' 



-/ 

’V 

’•V 

-/ 

=:V 

’V 

-/ 

’■•7 

*/ 

=V 

>!=/ 

V/ 

'■*=/ 

■•f/ 

*/ 
r -^p -V' / 



OPEN FILE(P ARFILE) STREAM INPUT; 



GET FILE(?AR?ILS ) LIST D); 

N = ( (D - D)+D)/2; 

DO 1=1 TO n; 

GST EILEIPAREILE ) LIST A(D); 
END; 

DO 1=1 TO d; 

GET EILE(PAREILS) LIST 'B(I)); 

end; 

GET FILE(PARFILE) LIST (C, THRESH); 



PUT SKI? LIST ('DIMENSION = ' , D , 'TFRES HOLD =',THRESH); 



/ V ^ s’^ «A,* %V %W %V «■/# * 1 # xO X* 

'I' *T* 'I' 'r <!•* -IT O' ir 'C -T* 'r “nr *ir -•i' o' 'i' 'Y'^ ^ -y» o' o' "i 

/■'■ 

/- INPUT AND PROCESS Y-VECTCRS 

/''■• 

y# y# y^ y# %y y^ y> %v y^ o^* y^ y^ y^ y^ y^ %y y^ y^ / 

^p ^p rp #p ^p ^p »-p #p ^p >p ^p ^p «*p ^p >p ^p ^p ^p ^p #p ^p ^p ^p ^p ^p ^p ^p ^p ^p ^p ^p ^p ^p ^p ^p #p ^p ^p ^p ^p ^p / 



[i y^ y^ y ^ yj yj y ^ y^ y^ y^ y ^ 

-/ 
'%/ 
*/ 



ON ENDFILE(DATFILE) EOF = TRUE; 
OPEN EILE(DATEILE) STREAM INPUT; 
DO WHILE (EOF = FALSE); 
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K = ADD2SIT16(K,0NE) ; 



PUT SKIP(2); 
po 1=1 TO d; 

GET FILE(DATFILE) LIST (Y(I)); 

PUT SKIP listC'y (M,') =',y(D); 
end; 

/- CALC LAMPDA_B_Y = (Y-TRANS)*(A _MATRIX)-(Y) */ 

LAMBDf_B_Y = 

DO J = 1 TO D-i; 

DO i=j+i TO r; 

Lftr^BDA_B_Y = LAMBDA_B_Y +( a ( I +J + 1 )'"Y ( I )'=‘Y ( J ) ) ; 

end; 

end; 

T2 = 0 ; 

DO 1=1 TO d; 

T2 = T2 + ( A(I)*Y(I)-Y(I)) ; 

EM D ; 

LAM5DA_B_Y = ^2-LAMBDA_?_Y ) * T2 ; 

/- ADD LAMBDA_B_Y TO ( B-VECTOR ) *( Y ) S STORE -/ 



DO 1=1 TO d; 

LAM3DA_3_Y = LAMBDA_B_Y + ( B(I) Y'l)); 

end; 



/- ADD LAMBDA_B_Y TO C E STORE IN LA.MEDA_B_Y */ 

LAMBDA ? Y = LAMBDA BY + C; 



^ V ^ V ^ ^ V-^ ^ ^ ^ o# / 

""r sjt ^ #1% ^ ^ ^ ^ ^ #P ^ ^ ..>1% ^|S ^ ^ .nr ^ / 

/❖ 

/^ aWAIT L«MBDA^'v?_X CALCULATED IN THE OTHER CLUSTER ■-/ 

V / 

s*^ WL# %** y 

>1^ ^1^ ^ ^ #,«k >1^ ^1% #»J«» ^ ^ ^1% ^1% ^|«k ^J«k #4> / 



CiLL AWAIT( AIEVC.K); 

PUT SKI?(2) LIST( 'LAMEDA_B_Y =',LAMBDA_B Y ); 
PUT SKI? LIST ('LAMBDA AP_X = ' ,LAM3DA_A?_X ) ; 



/:;c5|! 

/- 

/'^ 

/>’f 

/■■' 

/.;c 



#p 5^ . 

ADL THE LAMBDA_A? 
THE OTHER CLUSTER 
THE LAMBDA B Y VA 






» ^x* 



% )Jc Tj: >1^ V* ^ ^ ^ ^ 

X VALUE RECEIVED 
’VI 2 THE ETHERNET 
.UE CALCULATED IN 



CLUSTER, AND COMPARE 
THRESHOLD V&LUE. 



THE RESULT TO 



! SjS V|C )(C ij? 

FROM 

TO 

THIS 

THE 






^s TjW ^ ^ #Y« #4*» ^ ^4«k ^ ^ # 






kV ^ 

>1% * 



— / 
«/ 
«/ 
«/ 

*/ 
=? / 

■-/ 
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T2 = LAMEDA_E_Y + LAMEDA_AP_X; 

IF (T2 > THRESH) THEN DC; 

PUT SKIP LIST ( 'RESULT =',T 2 ,'IS > TH‘^ESHOLD '); 

ene; 

ELSE do; 

PUT SKI? LIST( 'RESULT =',T2,'IS < THRESHOLD '); 

end; 

DO I=G TO 10GG; 

DO J=0 TO 500; /* DELAY LOOP */ 

end; 

end; 



/ 5** ^ ^ ^ 'hV ^ ^ »•*' *•< / 

/ <»c *T* -T* ^ *T* nr* 'c O' ^ A'*T* ^ ^ 'r ^ ^ nr ^ ^ *ir n* “t* 'r* 'T* 'T* ^ ■'I' 'I' ^ 'r* <»f» 'I' ^ nr* 'I' ■'•'• 'r* *T* ■'i'* / 

/- -/ 

/- NOTIFY BOARD 3 TO CONTINUE WITH NEXT INPUT VECTOR -/ 
/- =V 

%P# % V «V %A# / 

^1% «*|% r|«> #1^ #|N ^1% / 

CALL ADVANCF(B2EVC) ; 

end; /- END OF DO WHILE (EOF = FALSE) LOOP -/ 



PUT SKIP(3) LIST('END OF INPUT DATA'); 



END PB2; 

/ »'» ■*'< ■**' 'A' V' 'V »*» *’» »•> %•« »*•» »*» *»A» v» 

««|^ .lip ^ *,» <•!« «p ^ >p <^1. 

^ j'j j*j »*j j'j «*' ;*j j*j j*> j*j jJj »'< %• j jJj jJj >*# »*j j'j J*C5*% i*J 5*i 



*^** **« V' V* ••'^ '•'^ * 

^ nr* *T* <n' *\' •'r nr* 'r 'i* n* •»r nr* »■ 

i^C 5*C Jp 5*i 5p 5p 5^ 5*C ^p ^p 5 



/* 

/ 

/« 


P33 is 


/- 

/'*' 
/ '*' 


This p 


/- 

/- 


1 . 


/- 


2 . 


/^ 


3. 


/❖ 

/- 


4 . . 


/- 

/- 


c; ^ 


/- 

/- 


y^ nJU y^ 

#1% / ^ ^1^ >4^ 



P33 is residsnt in local nemory of SBC 3, CLUSTER B 

procedure performs the following operations: 

Loads Quadratic eauation parameters A,B,C,D. 
Reads sensor E otservation vectors from disic. 
Computes the Conditional LLR ' LAMBDA_EP_Y ) 
to send to sensor A for further computation. 
S’lLmits a reouest into the FR3 Queue to send 
the CLLR statistic to sensor A. 

Advances ev=ntcount 31EVC to si,^nal sensor A 
that its awaited statistic is available. 



^ 



5'^ 



#|ni ^ ^ 



0 %*# *»l# V 






%•# v»# y> y# y.^ «j^ y# ^ v> y^ y«» vi# %•«» %V ' 

#1^ ^4^ >1^ rp 4 * 1 ^ • #Y* #1% «|^ ^|s #Y* #1% «!>% nr^ ' 

?E5: procedure; 



y ^1 

0 %^4» 4ki*^ %•«# ^ 

% 4 T,^ 4 *^ 4 H^ ^1% 



-V 

-/ 

-/ 

'•'/ 

*/ 

-/ 
%•# / 

-/ 
**' / 

/ 

-■'■/ 

-/ 

Sit/ 

* n* / 

V / 



^INCLUDE 'SYSDEF .PLI ' ; 



%RE?LACE 
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PA BY '8000'B4, 


/* 


PI IS SET TO 


THIS 


VALUE 


*/ 


P3 BY '8CC0'34, 


/^c 


P2 IS SET TO 


THIS 


VALUE 


*/ 


FRB BLOCK LENGTH 


BY 


20,/’’-= USED 


TO CONTROL 


-/ 


SRB_3L0CK_LSNGTH_M1 


BY 


19,/- ERE 


SIZE 




-/ 


TRUE 


BY 


'I'B, 








F9LSE 


BY 


'0'B, 








ONE 


BY 


'0001 'B4; 









DECLAPE 



1' n* JjC 5 

PARAFILE CONTAINS TEE FOLLOWING PARAMETERS 

1. Mi'TRIX/VECTO?. DIMENSION. 

2. D DIAGONAL ELEMENTS OF TEE MATRIX-AP. 

3. COL BY COL ELEMENTS BELOW DIAGONAL OF 

MATRIX-AP. 

4. D ELEMENTS OF VECTCR-BP. 

5. SCALAP-CP. 

DATAFILE CONTAINS TEE FOLLOWING VALUES 
1. D-ELFMENT Y-VECTORS . 



V 
'■V 
>;</ 

*/ 
/ 

*/ 
-r/ 

( V' i!' 5*i »** y» yr y< y< y* y# y^ «»v y^ *'• y<» y^ / 

^ .r,» «|> r|>» #|» # 1 ^ #p *(»■ »|» - 1» / 



(PARAFILE, DATAFILE) FILE, 

EOF BIT(l) STATIC INIT(FALSE). 
(I,J,D,N) FIXED, 

( A?(52E ) ,BP(32) ,CP,T1 ,Y(32) ) FLOST, 



/- 

/* 

/- 

/^■- 

/?!? 
/ ‘ 

/- 

/- 

/- 

/- 

/- 



INDEX VARIABLES AND CONSTANTS USED FOE 

INDEXING IN THE ERR (E-3_INDEX) 
SFOUENCIMG ^ CONTROL( II,JJ,K ) 
IDENTIFYING DATA TRANSFER ( DATA_TY?E ) 
IDENTIFYING OPPOSITE CLUSTEI- ADDRESS 



-I' 'I* / 

V/ 

-V 

-/ 

.■V 

-/ 

-V 



FEB_INDEX 
( II , JJ) 

K 

t)4ta type 

CLUSTER ADDRESS 



FIXED , 

PIT (16) , 

BIT(16) STATIC IN IT ( '000^ 'B4 ) . 
BIT(8) ST<'.TIC INIT( '01 'B4 ) , 
BIT(16) STATIC I N IT ( '0031 '? A ) , 
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VU %V «fO v^ «»V V^ ^V ^ / 

#Y* #Y* ^ 1 ^ ^ 1 % #|« ^|i« ^ 1 % ^ 1 % 4 ^ >|« ^|« #|« ^ 1 % ^ 1 ^ ^|« 4 #|^ ^g% ^ 1 % ^ 1 % ^ 1 % ^ j> ^ 1 % ^ 1 % > 1 ^ ^j'» .^ 1 ^ •»l^ ^ 1 % # 1 ^ #|*fc / 

/* */ 

/* POINTERS ARE USED IN THE EOLLO’VING MANNER , -/ 

/* */ 

/- PI SET TO PA TO BE ADDED TO SEGMENT ADDR 08^0 ^/ 

/-' P2 SET TO PI TO BE ADDED TO SEGMENT ADDF. 0600 -/ 

/'•' */ 

^ 5}« Si'S 5|: 5|i 5;j5;c5,'i5;s5;c:{t?|«3;«^5^?;t5[t5;c5{55;s5f:55s5^ :;c5;s ?|s 3^ :|c s;: :;c ^ 3|?5jJ 5;c 5[s 3}t sjc s;? s;? :(r V 5r 5 ;: i;s5;« s;; 5ji s;s ^/ 



(P1.P2) POINTER, 



/ 

/r, 

/- 

/❖ 

/* 

/❖ 

/* 

/« 

/=!: 

/- 

/* 

/- 

/- 



O.# «hl^ O# 

• ^ 1 % < 1 ^ «^l% # 1 % > 1 ^ #J^ # 1 ^ l<»J^ «»l^ 

THE ETHERNET REQUEST BLOCK (ERB) 



ETHERNET REQUEST PACKET (ERP) STRUCTURE 

IS USED IN THE FOLLOWING MANNER 

COMMAND = 1 FOR DATA TRANSFER OVER E-NET 
TYPE (NOT USED BY THIS PROCEDURE) 

VALUE (NOT USED BY THIS PROCEDURE) 

REMOTE ADDR = CLUSTER ADDRESS OF DESTINATION 



*/ 

-/ 

-/ 

-/ 

-/ 

-/ 

-/ 

-■-/ 

>:-'/ 

’“V 



/ % ^ v^-* '“V ^y ***^ ^ ^ Vf ^y / 

^1% #1^ ^ ^ ^ ^ 7 j^ ^1% ^ ^1^ 0^ 0j^ ^1% ^1% ^ ^ ^1% ^ ^1% #1^ #1^ ^ ^ ^ #1% ^ ^ ^ ^ r 



1 ER3(0 :SRB_^L0CK_LSNGTH_M1 ) BASED (PI), 
2 COMMAND BIT(8), 

2 TYPE BIT (8) , 

2 VALUE BIT (16) , 

2 REMOTE «DDR 3 IT (16). 



/ ^y *f^ %*0 %i# %y ^*0 ^y ^y ^y ^y %y ^0 ^y %y o# %y %y ^y ^4» ^y %y ^y ^y ^y ^0 ^y ^y ^y ^y ^y ^y ^y ^y ^y **y / 

#|W «|<^ 0^ ^^**» «!«• «|« #1^ 0^ 0^%^ 0f* 0^ ^|-% i»|<h 4 »|^ #1% ^1% ^1^ ^|«i »|% >1^ #1^ ^1^ ^1^ 0^^ 0^ 0f* 0^^ 0 «k #1% #1^ 0f^ ’ <|« ^1^ / 

/,;: 5;,'/ 

/- EASE LA'^BDA_P?_Y AT P2 = PB (OFFSET ADD TO D^T^ -V 

/- SEGMENT = 0S00 ) ■'' / 

/>;< ^;=/ 

/ %y *xm %,^0 ^*0 yt0 ^*0 %K0 ^0 ^i0 K^0 %y %^0 %*0 ««y v^ ^^0 *^0 ^y vy ^y -jy %•# yu v«%y 1^1^ ^y s**» «jy v^ ^»y ^y ^y *^y v*^ ^ ^ ^y '•y ^y ^y ^y ^y / 

-T* 'r -T* ^ V -T* nr *r -nr 'T* -n' nr nr ^r nr ^ ^r ^ nr nr ^ n'* n' nr n** ^ ^ ^ ^ ^ -iy^ .y'' ^r ^r -'j' "r ^r 'i- •'r n*^ / 



LAMBDA_BP_Y FLOAT EASED(P2); 

/- SFT POINTERS TO ViLUFS INDICATED IN TtEPLACE ABOVE =V 
UNSPEC(Pi) = pa; 

UNSPSC(P2) = ?b; 
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?js5>:5jc:{s:;c s;c3;s5{cj;«5;c 5^ >}::<€ >;t5;c3;c / 



INPUT PARAMETERS FROM DISK FILE 
MATRIX S VECTOR DIMENSION (D = INTEGER) 
C^.LCULATE N = if OF MATRIX ELEMENTS TO INPUT 
MATRIX-A? (SYMMETRIC) 



/'■ 

/■^ 

/■>'!■ 

/t^ 

/- 

/i, 

/« 

/- 
/- 
/'^ 

/* 

/a. 

/« 

/- 
/'ifi 

/- 

%w %•# %•# >v ou 

^1^ *1^ #1% #4% 



DIAGONAL ELEMENTS FIRST 
COLUMNS SELOW DIAGONAL NEXT 

VECTOR-rP (D ELEMENTS) 

SCALAR-C? (1 NUMBER) 



(# = D) 

(# = N-D) 



^ 



*/ 

-/ 

^7 

*/ 

5?/ 

*/ 

-/ 

-/ 

'•'/ 

>:V 

*/ 

s;:/ 

“V 



OPEN FILE(P?KAFILE) STREAM INPUT; 



GET FILE(PARAFILE) LIST (D); 
N = (^,D - L) + D)/2; 



DO 1=1 TO n; 

GET FILE (PAR A FILE) LIST ( A? ( I ) ) ; 

end; 

DO 1=1 TO d; 

GET FILE(?ARAFILS) LIST ( BP ( I ) ) ; 

end; 

GET FILE(PAEAFILE) LIST (CP); 

PUT SKIP LIST ('DIMENSION =',D); 



V* o# %•-» %^4i» / 

^4^ #4^ 1(^4^ >4% ^4% ^1% ^1% ^1% #1^ iqi^ ^4^ #4^ ^4-* ^4^ ^4^ ^4^ ^4^ #4% ^4^ ^4^ 4V|« ^4^ ^4% ^’*1 ^4% / 

/’'• '^/ 

/^' INPUT AND PROCESS Y-VECTORS =V 

^ i" Z't ^ 

/ '•’c '*c 5*' '‘‘e ***f '>*' ">*' '•'• •** V* 'V "**' «** "**' •f*' *'* V*' '•'' »*<' "**' V' / 

**» <»,» »-|» »(» »p •!» »(» / 



ON ENDFILE( DATAFILE) EOF = TRUE; 



OPEN FILE (DATAFILE) STREAM INPUT; 
DO WHILE! EOF = FALSE); 

CALL AWAIT(E2EVC,K) ; 



PUT SEIP^2); 
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DO 1=1 TO d; 

(JET EILS(DATAFILE) LIST (Y(I)); 

PUT SKI? LIST('Y (M,') =',Y(D); 

end; 

/* STORE (Y-T^-A.MS )-( 4P-t^ATRIX)’^'(Y) IM LA^'3DA_BP_Y -/ 

LA^PDA_EP_Y = 0 ; 

DC J=1 TO D-i; 

DO I=J+1 TO d; 

LAMBDA_3P_Y = LArBDA_BP_Y+(AP(I+J+l )-Y(I )*Y ' J ) ) ; 

end; 

end; 



T1 = 0 ; 

DO 1=1 TO d; 

T1 = T1 + (A?(I )’i'Y(I )*Y(I ) ) ; 

end; 

LAKBDA_B?_Y = ( 2*LAMBD A_BP_Y ) Ti; 

/- ADD LAMPDA_BP_T TO ( BP-VECTOR ) * ( Y ) 5. STORE 
DO 1=1 TO d; 

LAmidA_B?_Y = LAMBDA_BP_Y + (3?^) - Y'l)); 

end; 



/* ADD LAMBDA BP Y TO C? E STORE IN LAMBD^ 3? Y -/ 



LAMBDA B? Y = LA.MBDA BP Y + CP; 



/ 

^ ^ #1% #1% >1% >1% #1% ^1% ^1^ >1% ^1% / 

/- OET A TICKET TO ENABLE A 'a'RITE TO THE ERB =V 









* 5,» 5j» 5p 5 



^ « 



-r / 

» *V » » «'« / 

■* '1' -I' 'r -r 



II = TICKET (ER3_V?ITE_RS0UEST ) ; 

/- II NOW HAS THE VALUE OF THE TICKET RETURNED -/ 

JJ = ^EAD(SR3_WRIT^) ; 

/" JJ NOW HAS THE VALUE OF ERB_WRITE -R/ 

DO WHIL?(JJ < II ) ; 

JJ = READ(ERB_WRITE) ; 

END; 
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IF ETHFRNST REQUEST BLOCK (ERE) IS FULL-BUSY WAIT 
JJ = READ(ERB_READ)1 

DO WHILE((II - JJ) >= ERB_BLOCK_LENOTR) ; 
JJ = READ(ERB_RSAD) ; 



end; 



/»:c 



% ^ nr 



^ ^1^ ^1% ^1% #1^ 



C * aIi# y 

^1% ^1% ^1% ^1^ ^1% / 

'•V 



/* WRITE TO ERB WHEN A SLOT IS OPEN 
/- COMMAND = 1 FO'^ DATA TO EE TRANS FERED 
/^ REMOTE ADDF. = DESTINATION CLUSTER ADDRESS 

/•.K 



*/ 

=V 

'•V 



%f« %i^ «^v y 

nr ^p ^p ^p ^p ^p *p nr ^p ^p nr ^p ^p ^r ^p ^p ^p ^r ^p *p nr ^p ^'P ^p ^p / 

EPB INDEX = MOD( II ,ER3_BL0CK_LENGTH) ; 
ERBTERB_INDFX) .COMMAND = DATA_TYPE; 

ERB(ERB_INDEX ) ,REMOTE_ADDR = CLUSTER_ADDRESS ; 

/ •j» v» *i» «j» «A# »••» »'■• V'* *>v V' iA? *** V* V* *•* »’« y« •*** •'■» »'» V' V* »'» »’* / 

<1* ^ ,Y« 'f* ^ *v» jp .Y» »,% i|S .rj, jp .Y* »T* nr* ^ ^ "r n* nr* V nr* "»■* **i^ ^ «v* n** *r* ^ n* ^ •»<* *■»* / 

/- -/ 

/y.= notify MCORTEX TFAT ERP write is COMPLETE -V 

/s;: >;«/ 

/ o« %*« %v y 

♦ p #p #p #1% ^p ^1% #1^ ^p ^p ^p ^p #p #p ^ V #p ^p ^p #|-- #jV #p ^p #p #p #p ^p #p #p ^p ^p #p ^p #p ^p #p «p / 



C«LL ADVANCF(E?.3_WRITE) ; 

• 5|^ 5|C 5,% 5p «fC 5^' Sp ^ ^ Jp ^ 5p 5{» 5|t Jp J5» 5 jC JJC 5p 2p 3^ 3p 3^ 3p 5p «p S(C 3ii 5{S ip 5p 5JS 5p J,S 5,C 3p 5p ip 3p ijs ^ ip ijj ip 3 



/ = 

/- 

/K< 6 N 

/- IN THE 
/- SIGNAL 
/'^ THE D^T 
/- ADDRESS 
/'•' ADDRESS 
/- ALSO IN 

/- RPC 

/-■■' address 

/- ADDRESS 

/- COMMON 
/-.;= 

y ^ ^v v^ v*' v^ vy yy ***^ 

¥ #p #p ^p ^p ^p #p ^p #p #p ^p #p #p /p ^p ^p ^p ^p ^p #p ^p >p ^p ^p «p ^p #p #p #p #p tf*p ^p ^p ^p ^p ^p 



y %■# %y 



ETHERNET REQUEST PACKET (SR?) IS NOW SETUP 
ETHERNET REQUEST BLOCK (ERB). THIS WILL 
THE DRIVE? PROCEDURE ON BOARD 1 TO FETCH 
^ STORED IN COMMON MEMORY ( LAM3D ‘_B?_Y ) AT 
0cD0: RCC5’-0800 :bCC3 i. MOVE IT TO 
0300:80DA-0S00 :S0DD ( T^ANSMIT_DAT A_ELOCK ) 
COMMON MEMORY TO EE PACKETIZED AND SENT TO 
^I VE_DATA_ELOCK (RDB) OF THE OTHER CLUSTER 
0c00:e67C-0S00:967F WHERE IT IS MOVED TO 
08ef‘:SDD0-030e-9DD3 IN THE OTHER CLUSTERS 
MEMORY (LAmrdA B? Y). 






/ 
-/ 

-/ 

■■-/ 

•''/ 

-V 

-/ 

-/ 

-/ 
❖ / 
=v 

::;c/ 



/ %y ^ v<* ^ ^ **y *jy «4<> %y ^y ^y ^y ^y ^y «y %y ^y %y yy v«* %y %y %y y 

^P -rp .#p ^p *rp ^ ^ ^ ^p ^ ^p ^ ^p ^p OT ^ ^ ^ n'^ -'r nr ^ nr ^r / 

/■f i'f / 

NOTIEY OTHER CLUSTER TH»T DATA IS READY -/ 

/'•' */ 

/ ^•* V*- %y -. 1 ^ %y o^ ^y ^y %y %y ^*«%y ^y %y %v%^# %•» %y %y %y %v %y %y %y %y ^y ^y »y »y %y ^y »y %y y 

rp <#|% ^p ^1% ^p «*'p ^p '1^ yp ^p ^p ^p #p ✓p ^p <p #^p ^p >p ^p #p ^p ^1% <rp ^p ^p #p «p ^p ^p ^p >p^p #p #p ^p #p ^p «p ^p ^p ^p 4Pp >1^ ^p #1*^ ^p / 
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CALL ADVANCE(BIEVG); 

K = ADD2BIT16(K,0fJE) ; 

end; /- END OF DO WHILE (EOF = FALSE) LOOP 

PUT SKIP(3) LIST('END OF INPUT DATA'); 

END P33; 
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